teza2fis.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 19 行

program teza2;
var f:text;
v:array[1..100] of integer;
    n,p,r,i:integer;
begin
assign(f,'in.txt');
reset(f);
while not eoln(f) do
                  begin
                  n:=n+1;
                  read(f,v[n]);
                  end;
for i:=1 to n  do
   if v[i] mod 2 =0 then inc(p)
                 else inc(r);
writeln(p,'nr pare');
write(r,'nr impare');
readln;
end.