9. Напишите программу, которая в последовательности натуральных чисел определяет значение минимального, не кратного 9, элемента последовательности. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не кратное 9. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: значение минимального элемента не кратного 9.
first_list = input().split()
second_list = [float(n) for n in first_list]
while second_list.count(9) != 0:
second_list.remove(9)
print(min(second_list))
begin
var n := ReadInteger;
ReadSeqInteger(n).Where(p -> p mod 9 <> 0).Min.Print
end.
Первая задача
var
i,n:1..1000;
a,max:-30000..30000;
begin
max:=-30000;
read(n);
for i:=1 to n do begin
read(a);
if (a>max) and (a mod 5=0) then max:=a;
end;
write(max);
end.
Вторая задача
var
i,n:1..100;
a:-300..300;
s:-30000..30000;
begin
s:=0;
read(n);
for i:=1 to n do begin
read(a)
if a mod 10=3 then s:=s+a;
end;
write(s);
end.
Объяснение: