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

var i:integer;c:array [1..15] of integer;a:array [1..15] of integer;beginfor i:=1 to 15 do beginc[i]:=Random (100);end;for i:=1 to 15 do beginif (c[i] mod 2 = 0) thena[i]:= c[i] div 2elsea [i]:= c [i] *2;end;write ('Массив С: ');for i:=1 to 15 do beginwrite (c [i]);write (' ');end;writeln (' ');write ('Массив A: ');for i:=1 to 15 do beginwrite (a[i]);write (' ');end;end.