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. // Конец программы
from random import randint
S1 = [randint(1,100) for i in range(20)]
summa1 = 0
summa2 = 0
for i in S1:
if i % 2 == 0:
summa1 += i
else:
summa2 += i
print(f"Сумма чётных = {summa1}")
print(f"Сумма нечёт = {summa2}")
print(max(S1)) # Значение наибольшего элемента в массиве
print(min(S1)) # Значение наименьшего элемента в массиве
summa = 0
for i in S1:
if i < 30:
summa += i
print(f"Сумма чисел меньше 30-ти = {summa}")
summa = S1[2]
for i in S1:
summa *= i
print(f"Произведение элементов с индексов 2({S1[2]}) = {summa}")