Задача на паскале

Задан массив А размерности N случайным образом.

Нужно сформировать новый массив по следующему правилу:
все чётные элементы разделить на 2, все нечётные оставить без изменения

1

Ответы и объяснения

2013-03-05T23:57:00+04:00

const n=10;

var a,b: array of integer;

i : integer;

begin

for i:=1 to n do

 begin

  a[i]:=random(20)-10;

  write(a[i]:4);

 end;

for i:=1 to n do

 if a[i] mod 2=0 then b[i]:=a[i] div 2 

   else b[i]:=b[i];

writeln;

for i:=1 to n do

  write(b[i]:4);

end.