Сформулировать массив, поставив на четные места 1, а нечтные 0.

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.