Информатика

Владимир

23 сентября, 07:27

Очень нужна помощь! Целый день ломаю голову. Программа на Паскале. Найти максимальное среди элементов массива кратных 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.