Ответы на вопрос:
Var a: array[1..5,1..5]of integer; i,j,ans: integer; begin ans: =a[1,1]; for i: =1 to 5 do begin for j: =1 to 5 do begin read(a[i,j]); if(a[i,j]< ans)then ans: =a[i,j]; end; end; writeln(ans); end.
Популярно: Информатика
-
iwliliya1820.01.2021 00:04
-
vovkatop22818.10.2020 23:09
-
egorsnaiper20114.08.2022 05:11
-
melnicoff02.01.2021 02:41
-
ulyakiissaa12.08.2022 20:24
-
Пингвинено2504.04.2021 17:32
-
kelyansky02.09.2021 12:52
-
sndzhychayana27.08.2020 00:21
-
hopik208.03.2020 08:56
-
marinalebedeva503.06.2020 19:27