?>
Напишите программу, которая в последовательности натуральных чисел определяет сумму двухзначных чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчиваетсячислом 0 (0 - признак окончания ввода, не входит в последовательностьКоличество чиселпревышает 1000. Введённые числане превышают 30000.Программа должна вывести одно число: сумму двухзначных чисел, кратных 5.Пример работы программы:неВыходные данныеВходные данные4522451200на пайтоне без типа строка
Ответы
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.