Очень нужна помощь!!! Целый день разбиваю голову. Программка на Паскале. Отыскать максимальное посреди 

Очень нужна помощь!!! Целый денек разбиваю голову. Программа на Паскале. Отыскать максимальное среди частей массива кратных 3. Структура программки надобно как у меня, но Паскаль бранится на 15 строчку на несовместимость типов - не разумею свою ошибку. Программка:
program minmax;
var i,n:integer;
a:array[1..1000] of integer;
amax:integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
amax:=a[1];
for i:=2 to n do
begin
if a[i] mod 3=0 gt; amax then
amax:=a[i];
end;
writeln(a[i]);
close (input);
close (output);
end.

Маргарита Тетова 2019-08-08 06:12:25

имеется ввиду раскладка клавиатуры?

Виталий Лузков 2019-08-08 06:14:53

а как надобно, вроде всегда так писала

Ангелина Сафьян 2019-08-08 06:17:11

правдиво разговаривая, я много просмотрела программ, но своей оплошности осознать не могу