Составьте программу (в паскале), которая заполнит массив a[1 ... 16]случайными целыми числами в диапазоне от - 20 до 20, выводит на экран исходный массив, затем преобразовывает его, увеличивая в 2 раза все числа, кратные 5, а остальные уменьшает на 10. Затем выводит на экран преобразованный массив.

const n=16;

var a:array [1 ... n] of integer;

i:integer;

begin

for i:=1 to n do a[i]:=random (41) - 20;

writeln ('Исходный массив: ') ;

for i:=1 to n do write (a[i]:5) ;

writeln;

for i:=1 to n do

if a[i] mod 5 = 0 then a[i]:=a[i]*2 else a[i]:=a[i]-10;

writeln ('Преобразованный массив: ') ;

for i:=1 to n do write (a[i]:5)

end.