Регистрация
Zipchik
10.02.2022 19:42
Информатика
Есть ответ 👍

Картинка: https://i.imgur.com/N68ixlo.jpg

______________________________

114
296
Посмотреть ответы 1

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

Karina25052005
Karina25052005
4,8(74 оценок)
Const n=10; m=10; var a: array [1..n,1..m] of integer; i,j,min,x1,y1,max,x2,y2: integer; begin for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(21)-10; write (a[i,j]: 4); end; writeln; end; min: =a[1,1]; max: =a[1,1]; x1: =1; x2: =1; y1: =1; y2: =1; for i: =1 to n do for j: =1 to n do if a[i,j]< min then  begin min: =a[i,j]; x1: =i; y1: =j; end else  if a[i,j]> max then begin  max: =a[i,j]; x2: =i; y2: =j; end; writeln (' минимальный элемент     a[',x1,',',y1,']=',min); writeln (',максимальный элемент     a[',x2,',',y2,']=',max); end.

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