Ответы на вопрос:
Const auto = false; var a: array[1..5000]of integer; n, i, k, min: integer; begin if auto then begin n : = random(100); for i : = 1 to n do a[i] : = random(200); end else begin readln(n); for i : = 1 to n do read(a[i]); end; min : = a[1]; for i : = 1 to n do begin if min > a[i] then min : = a[i]; if a[i] > 10.5 then k : = k + 1; end; writeln(min, ' ', k); end.
Популярно: Информатика
-
mishazhidkov216.12.2021 17:37
-
Taddi13.03.2021 13:56
-
Милана07080010.10.2021 16:19
-
Mussa105.11.2021 06:05
-
F1Na1Ik06.02.2022 08:52
-
АлексаСветлая22.02.2023 12:12
-
alina2015a20.11.2021 04:50
-
буля409.08.2021 15:50
-
asli12131.10.2020 03:12
-
армен45926.10.2020 01:37