принимать целые значения от 0 до I0000 включительно. Надо, чтобы программа нашла и вывела максимальное значение среди трёхзначных
элементов массива, делящихся на 4. Если в исходном массиве нет
трёхзначного элемента, кратного 4, то вывести сообщение «Не найдено».
Исходные данные:
Цитата
const
N = 20;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i := 1 to N do
writeln(a[i]);
.......
end.
Заранее спасибо!