Найти средние арифметические значения элементов всех строк матрицы и элементов главной диагонали

@NiceQ · Регистрация: 19.10.2012

Author24 — интернет-сервис помощи студентам

помогите пожалуйста с задачкой:
в массиве

5.2 1.8 5.2

6.1 7.4 8.1

2.2 8.2 7.1

найти средние арифметические значения элементов всех строк и элементов главной диагонали, определить, какое из полученных значений больше.

@domovou2.0 · 23.10.2012, 19:15

Pascal

var
   a:array [1..1000,1..1000] of real;
   kol,i,j,m,n:integer;
   sr,sr1:real;
begin
writeln('MxN= ');readln(m,n);
for i:=1 to m do
    for j:=1 to n do begin
        write('a[',i,',53',j,']= ');
        readln(a[i,j]);
        end;
kol:=0;
for i:=1 to m do
    begin
    for j:=1 to n do
     begin
     sr:=sr+a[i,j];
     write(a[i,j],' ');
     end;
     writeln;
     sr1:=a[i,i]+sr1;
     inc(kol);
    end;
 
sr:=sr/(m*n);
sr1:=sr1/kol;
if sr>sr1 then writeln('Ср. знач строк больше диагонали ср. знач')
   else
       if sr=sr1 then writeln('Ср. знач строк равно диагонали ср. знач')
          else writeln('Ср. знач строк меньше диагонали ср. знач');
readln;
end.

	23.10.2012, 19:15

Найти средние арифметические значения элементов всех строк матрицы и элементов главной диагонали

Решение