Задание:
Очень нужна помощь! Целый день ломаю голову. Программа на Паскале. Найти максимальное среди элементов массива кратных 3. Структура программы надо как уменя, но Паскаль ругается на 15 строку на несовместимость типов — не понимаю свою ошибку. Программа: program minmax; var i,n: integer; a: array[1… 1000] of integer; amax: integer; beginassign (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 dobeginif a[i] mod 3=0 > amax thenamax: =a[i]; end; writeln (a[i]); close (input); close (output); end.
Решение:
Надо if (a[i] mod 3=0) and (a[i] >amax)
Знаете другой ответ?