Составьте программу(в паскале), которая заполнит массив a[1..16]случайными целыми числами...

Question

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

Answer 1

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.