Написать программу в Паскале.
Указания: Заполните одномерный числовой массив А[15] случайными целыми числами в интервале [18;15].Выведите значения элементов массива сначала в столбик,а затем в строку,причем на каждый элемент отведите 4 позиции.
Задача: Заменить элементы массива,которые кратны пяти,на значение максимального элемента массива.

const n=15;vara:array[1..n]of integer;i,i_max:integer;begin         for i:=1 to n do              begin                       a[i]:=random(4)+15;                      writeln(a[i]);               end;     writeln;         for i:=1 to n do                  write(a[i]:4);                       writeln;          i_max:=1;              for i:=2 to n do                    if a[i]>a[i_max]then                          i_max:=i;              for i:=1 to n do                    if a[i]mod 5=0 then                             a[i]:=a[i_max];             for i:=1 to n do                   write(a[i]:4);            end.