test2.pas

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

var f:text;
    n,i,nr  :integer;
    v:array[1..100]of integer;
begin
assign(f,'numere2.txt');
reset(f);
readln(f,n);
while not eoln(f) do
                   begin
                   nr:=nr+1;
                   read(f, v[nr]);

                   end;
for i:=1 to nr do
   if  v[i] mod 2=0  then write(v[i]);
readln;
close(f);
end.