вычисления среднего арифметического каждого столбца под главной диагональю

[Павел Шилин]

Составьте программу вычисления среднего арифметического каждого столбца под главной диагональю (диагональ включить) матрицы B(N,N) и запишите данные значения в последнюю строку данной матрицы. Заранее Спасибо!!!

[ByAlex]

Сообщение от Павел Шилин

Составьте программу вычисления среднего арифметического каждого столбца под главной диагональю (диагональ включить) матрицы B(N,N) и запишите данные значения в последнюю строку данной матрицы. Заранее Спасибо!!!

Вот так -

uses crt;
const
  n=5;
var
  B:array[1..n,1..n] of real;
  i,j:integer;
  SrArif:real;
begin
  writeln('Input the elements of matrix B[',n,',',n,']:');
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('B[',i,',',j,'] = ');
      readln(B[i,j]);
    end;
  writeln;
  writeln('Massive is -');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(B[i,j]:4:2,' ');
    writeln;
  end;
  for i := 1 to n do
  begin
    SrArif:=0;
    for j := i to n do
      SrArif:=SrArif+B[j,i];
    B[n,i]:=SrArif/(n-(i-1));
  end;
  writeln;
  writeln('Result:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(B[i,j]:4:2,' ');
    writeln;
  end;
  readln;
end.

[Павел Шилин]

Спасибо очень сильно помог!!!!!