Ответы на вопрос:
var
a,b,min,i: integer;
begin
read(a);
min: =0;
for i: =1 to (a-2)
do
begin
read(b);
if (b mod 10=6) and ((b< min) or (min=0))
then
min: =b;
read(b);
end;
write(min);
end.
Популярно: Информатика
-
vvolkova08.02.2023 05:37
-
ПЕДРО1229.11.2022 13:59
-
4богдашка08.10.2022 07:15
-
IsabellaSwan201721.08.2021 00:28
-
Мαлинкα14.01.2020 21:27
-
kros22299927.05.2023 03:49
-
shenikov200330.07.2021 17:13
-
DIXIS77508.05.2023 00:12
-
Экфолорд08.09.2022 12:08
-
polinasparrow28.05.2020 00:45