Одномерный массив 7 элементов заполнить случайным образом числами от 5 до 35. Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями. Вывести на экран монитора первоначальный и преобразованный массивы в столбик.

Const n = 7;

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

i: integer;

begin

writeln ('Начальный вид массива:') ;

for i : = 1 to n do

begin

A[i] : = 5 + random (31) ;

writeln ('A[', i, ']=', A[i]:3) ;

end;

writeln ('Конечный вид массива:') ;

for i : = 1 to n do

begin

if A[i] > 15 then A[i] : = 8;

if A[i] = 5 then A[i] : = 0;

writeln ('A[', i, ']=', A[i]:3) ;

end;

readln

end.