Ответы на вопрос:
Uses crt; var a: array[1..5] of integer; i,min: integer; begin writeln('введите пять чисел: '); for i: =1 to 5 do read(a[i]); min: =a[1]; for i: =1 to 5 do if a[i]< min then min: =a[i]; writeln; write('минимальный элемент ',min); end.
Популярно: Информатика
-
Milka2006071112.09.2020 03:37
-
Adashok21.09.2022 02:11
-
помоги26919.07.2022 22:13
-
miroslav123425.01.2022 19:49
-
dovlarisa06.09.2020 03:40
-
kosonogova09.11.2022 10:32
-
xalka200408.06.2023 22:45
-
MishaZuev102.11.2020 16:14
-
serdykivka20.01.2021 07:28
-
миханемельянов30.04.2021 08:27