В заданной матрице А(N,N) найти индексы 1-го элемента, превосходящего среднее арифметическое всех элементов
Категория: Delphi/Pascal
2012-01-04 16:22:49
Элементы матриц просматиривать слева направо и сверху вниз.
code: #pascal
uses crt; var a:array[1..100,1..100] of integer; n,m,i,j,sr:integer; d:real; begin read(n); for i:=1 to n do for j:=1 to n do begin read(a[i,j]); sr:=sr+a[i,j]; end; d:=sr/sqr(n); m:=sqr(n); n:=sqr(n); for i:=1 to n do for j:=1 to n do if (a[i,j] > d) and (i < m) then begin m:=i; n:=j; end; write(m,n); readln;readln; end.
автор: Kyper
Поделиться: