В заданной матрице А(N,N) найти индексы 1-го элемента, превосходящего среднее арифметическое всех элементов

Элементы матриц просматиривать слева направо и сверху вниз.

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

Поделиться:

Похожие статьи: