Предмет: Информатика,
автор: lepssd
СРОЧНО ИНФОРМАТИКА ПАСКАЛЬ!!
Приложения:
Ответы
Автор ответа:
1
Ответ:
var n,a,i,min:integer;
begin
readln(n);
min:=1000;
for i:=1 to n do
begin
readln(a);
if (a mod 20=0)and(a<min) then min:=a;
end;
writeln(min);
end.
Объяснение:
Автор ответа:
0
===== PascalABC.NET =====
begin
ReadSeqInteger(ReadInteger).Where(p -> p mod 20 = 0).Min.Print
end.
Приложения:
Интересные вопросы
Предмет: Русский язык,
автор: odin32
Предмет: Другие предметы,
автор: Kattika
Предмет: Русский язык,
автор: Nikitos03
Предмет: История,
автор: ОтЛиЧнИцА0710
Предмет: Математика,
автор: VIAГРА