Напечатать среднее арифметическое каждого столбца матрицы - Turbo Pascal

Формулировка задачи:

Дана таблица B[i,j], где i=1,2,...,n, j=1,2,...,m. Напечатать среднее арифметическое каждого столбца.

Код к задаче: «Напечатать среднее арифметическое каждого столбца матрицы - Turbo Pascal»

textual
const
  n = 4;
  m = 4;
var
  a : array[1..n, 1..m] of integer;
  b : array[1..m] of real;
  i, j : integer;
  s : real;
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin      
      a[i,j] := random(100);
      write(a[i,j]:6);
    end;
    writeln
  end;
  writeln('средние значения столбцов:');
  for j := 1 to m do
  begin
    s := 0;
    for i := 1 to n do s := s + a[i,j];
    b[j] := s / n;
    write(b[j]:6:2)
  end;  
  readln
end.

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы