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

Var

i:integer;

a:array[1 ... 7]of integer;

begin

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

for i:=1 to 7 do

begin

a[i]:=random (5,9) ;

write (a[i]:4) ;

end;

writeln;

for i:=1 to 7 do

if a[i]=7 then a[i]:=1;

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

for i:=1 to 7 do

write (a[i]:4) ;

end.