Помощь - Поиск - Пользователи - Календарь
Полная версия: Написать программу
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Calibri
Дан целочисленный массив из 20 элементов. Элементы массива могут
принимать целые значения от 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.


Заранее спасибо!
APAL
Нужна помощь или перенести в раздел "Задачи на заказ"?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.