Регистрация
dfgro
09.09.2022 21:28
Информатика
Есть ответ 👍

Буду очень благодарна​

106
370
Посмотреть ответы 1

Ответы на вопрос:

ольга1718
ольга1718
4,8(99 оценок)
Var a: array[1..100,1..100] of integer; min,i,j,n: integer; begin readln(n); for i: =1 to n do for j: =1 to n do a[i,j]: =random(0,100); for i: =1 to n do begin for j: =1 to n do write(a[i,j],' '); writeln; end; min: =a[1,1]; for i: =1 to n  do for  j: =n-i downto 1 do if a[i,j]< min then min: =a[i,j]; writeln('min = ',min); end.

Популярно: Информатика