Ответы на вопрос:
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.
Популярно: Информатика
-
ByArts100021.04.2023 18:41
-
привет88827.07.2022 17:29
-
Арина166624.08.2022 03:19
-
sickman199105.09.2020 20:28
-
baukovaevgehia221.11.2020 06:20
-
74563218928.04.2022 10:24
-
Ланка3010.11.2022 12:35
-
dilaratristarimir22.03.2020 23:31
-
азат6129.12.2022 00:56
-
Gansterghkl01.11.2022 07:12