Uses crt; const n=10; var a:array [1..n] of integer; i: integer; begin randomize; for i:=1 to n do begin a[i]:=random(100); writeln(a[i]); end; writeln; for i:=1 to n do if (a[i] mod 2=0) then a[i]:=1 else a[i]:=0; for i:=1 to n do writeln(a[i]); end.
const n=10;
var a:array [1..n] of integer;
i: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) then a[i]:=1 else a[i]:=0;
for i:=1 to n do writeln(a[i]);
end.