Задан массив из 10 случайных целых чисел от 0 до 50. Увеличить в 2 раза элементы массива кратные 5, остальные элементы массива уменьшить в 2 раза.

Uses crt;

var a=array[1 ... 10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (50);

if (a[i]mod5=0) there

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

else

a[i]:=a[i]/2;

for i:=1 to 10 do

writeln (a[i]);

end.