Очень нужна помощь!!! Целый день ломаю голову. Программа на Паскале. Найти максимальное среди элементов массива кратных 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 > amax then
amax:=a[i];
end;
writeln(a[i]);
close (input);
close (output);
end.
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 > amax then
amax:=a[i];
end;
writeln(a[i]);
close (input);
close (output);
end.