Const n=5;
var c,a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do c[i]:=random(100);
for i:=1 to n do write(c[i]:4);
writeln;
for i:=1 to n doif (c[i] mod 2)=0 then a[i]:=c[i] {если элемент четный, то A(I)=C(I)2 возможно здесь лишняя 2,если нет,тогда допишите сами правильно}
else a[i]:=c[i]*2;for i:=1 to n do write(a[i]:4);
end.