var
number: integer;
begin
var size := readinteger;
var max := -32768;
for var i := 1 to size do
begin
number := readinteger;
if (number mod 4 = 0) and (number > max) then
max := number;
end;
write(max);
end.
Объяснение:
var
number: integer; // Целочисленная переменная, хранящая вводимые с клавиатуры числа
begin // Начало программы
var size := readinteger; // Считываем размер последовательности с клавиатуры
var max := -32768; // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число
for var i := 1 to size do // Идём от 1 до размера последовательности
begin // Начало цикла
number := readinteger; // Считываем число последовательности с клавиатуры
if (number mod 4 = 0) and (number > max) then // Если число делится на 4 без остатка и оно > max
max := number; // max присваиваем number
end; // Конец цикла
write(max); // Выводим ответ
end. // Конец программы
Давай круговую нарисуем) Типа 25+15+40+20 = 100%, круг наиболее круто подойдет))
Всего в круге 360 градусов.
На завтрак уйдет 360*0.25 = 90 градусов
На второй завтрак 360*0.15 = 54 градуса
На обед 360 * 0.4 = 144 градуса
На ужин 360 * 0.2 = 72 градуса
1) Теперь бери циркуль, нарисуй большой красивый круг.
Вертикально проведи радиус.
2) От этого радиуса отмерь 90 градусов, проведи еще 1 радиус и закрась эту область желтым цветом
... И вот так отмеряй 54, потом 144, потом 72, пока круг не кончится)
n) ну и в конце наглядно отметь это всё.
P.s. у меня на картинке в пеинте всё не супер-точно, но наглядно)