Напишите программу, которая в последовательности натуральных чисел определяет сумму двухзначных чисел, кратных 5. Программа получает на вход натуральные числа,
количество введённых чисел неизвестно, последовательность чисел заканчивается
числом 0 (0 - признак окончания ввода, не входит в последовательность).
Количество чисел
превышает 1000. Введённые числа
не превышают 30000.
Программа должна вывести одно число: сумму двухзначных чисел, кратных 5.
Пример работы программы:
не
Выходные данные
Входные данные
45
22
45
120
0
на пайтоне без типа строка
var n,i,a,min: integer;
begin
readln(n);
min:=30001
for i:=1 to n do
begin
readln(a)
if (a mod 10 = 4) and (a < min)
then min:= a;
end;
writeln(min)
end.