Заполнить массив с из 15 элементов следующим образом: первые пять элементов ввести с клавиатуры остальные целыми случайными числами из интервала [-6..6] массив распечатать в строчку найти максимальный элемент кратный трем.

1 2 3 4 5 6 7 8 9 10 11 12 program fpro; var a : array[1..10] of integer; i : integer; begin randomize; for i :=1 to 10 do begin   a[i] := random(1,20);   if (a[i] > 5) and (a[i] < 15) then writeln(a[i]); end; end

program sky;
uses crt;
var c: array [1..15] of integer; i,max : integer;
begin
write ('введите 5 чисел: ');
for i:=1 to 5 do begin read(c[i]); for i:=6 to 15 do begin c[i]:=-7+random(13); write(' ',c[i]);end;
c[1]:=max;
for i:=2 to 15 do begin if(c[i] mod 3 =0) then begin if(c[i]>max) then max:=c[i];end;end;
writeln('максимальное число,которое /3= ',max);
end.