Ответы на вопрос:
Var a,min,n,i: integer; begin write('n = '); read(n); i: =1; while min mod 10 < > 6 do begin read(min); i: =i+1 end; for i: = i to n do begin read(a); if a < min then min: =a; end; writeln('min = ',min); end.
Популярно: Информатика
-
mofobaxu06.02.2022 22:21
-
ЕлизаветаВернер17.11.2020 14:31
-
SizovaOlay06.06.2021 06:10
-
matvik199209.04.2023 17:57
-
AlexCameron19.02.2020 20:30
-
George666666621.05.2020 18:05
-
2891658712.10.2022 01:50
-
ната118227.09.2020 07:22
-
Qocharian05.09.2021 18:58
-
raykova56821.11.2022 04:55