Матрица Опции

[Richard]

Прошу помощи в решение простой задачи. Раньше вообще не имел дел с матрицами и масивами.
Задача: Задана матрица S(25,8). Вывести исходные данные в первые 24 строки и первые 7 столбцов. Вычислить среднее арифметческое значение элементов каждой строки и записать его в 8-ой столбец, а также среднее среденее арифметическое каждого столбца и записать его в 25-ю строку.

[samec]

нужно сначала заполнить матрицу этими самыми средними арифметичискими, а потом уже и выводить.
Заполнить можно вот так:

 

for i:=1 to 24 do
 begin
  s[i,m]:=0;
  for j:=1 to 7 do
     s[i,m]:=s[i,m]+s[i,j];
  s[i,m]:=s[i,m] div 7;
 end;


for i:=1 to 7 do
 begin
  s[n,i]:=0;
  for j:=1 to 24 do
     s[n,i]:=s[n,i]+s[j,i];
  s[n,i]:=s[n,i] div 24;
 end;

вот только это не совсем среднее арифметическое будет получаться, в твоём примере я думаю нужно использовать матрицу вещественного типа, тогда всё будт ок. Если использовать матрицу вещественного типа, то нужно div заменить на /
вот и всё ;)