3. Из элементов массива С сформировать массив А той же размерности по правилу: если элемент четный, то A (I) = C (I) 2, если нечетный, то A (I) = 2*C (I)

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.