Из элементов массива С сформировать массив A того же размера по правилу если номер четный, то Ai=C/2, если нечетный, то Ai=2*Ci

Var

i:integer;

c:array [1 ... 15] of integer;

a:array [1 ... 15] of integer;

begin

for i:=1 to 15 do begin

c[i]:=Random (100) ;

end;

for i:=1 to 15 do begin

if (c[i] mod 2 = 0) then

a[i]: = c[i] div 2

else

a [i]: = c [i] * 2;

end;

write ('Массив С: ') ;

for i:=1 to 15 do begin

write (c [i]) ;

write (' ') ;

end;

writeln (' ') ;

write ('Массив A: ') ;

for i:=1 to 15 do begin

write (a[i]) ;

write (' ') ;

end;

end.