Ответы на вопрос:
2.uses wincrt;
var a: array[1..3];
i: integer;
begin
min: =a[1];
for i: =2 to3 do
if a[i]< min then min: =a[i];
writeln('min=',min)
end.
Популярно: Информатика
-
АзизОсманов18.04.2021 02:56
-
KaranVahi2103.03.2022 03:11
-
вита432111.07.2021 12:38
-
justnero26.08.2020 15:04
-
fantastik0308.07.2021 18:14
-
mixakov0523.10.2020 07:14
-
nastyarapuntseozgwc201.12.2020 23:43
-
lenaprivet28.09.2022 06:59
-
Кись12305.05.2023 01:04
-
lliza12330.07.2020 21:57