среднее арифметическое строк матрицы

[crazy_girl1]

Всем привет!
Помогите, пожалуйста справиться с заданиемю

составить матрицу (3 колонны, 7 строк) и вычислить для каждой строки среднее арифметическое. Результат записать в однодименсионную матрицу (1 колонна, 7 строк).

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

Заранее огромное спасибо.

вот текст программы:

Program masivs;
Uses Crt;

Var
  mas1: Array[1..7] of Integer;
  mas2: Array[1..7,1..3] of Integer;
  i,j: Integer;


Begin
 Clrscr;
 randomize;
 Writeln('двухдименсиональный массив:');
 For i:=1 to 7 do
  begin
   for j:=1 to 3 do
    begin
     mas2[i][j]:=random(10);
     write(mas2[i][j]:2)
    end;
   writeln;
  end;
 readln;

writeln('вычислим среднее арифметическое для каждой строки');
readln;

??????

writeln(mas1);
readln;
end.

[ROMA2PVT]

Program masivs;
Uses
 Crt;
Var
 mas1: Array[1..7] of real;
 mas2: Array[1..7,1..3] of Integer;
 i,j,sum,kol: Integer;
 sr:real;
Begin
 Clrscr;
 randomize;
 Writeln('Двумерный массив: ');
 For i:=1 to 7 do
 begin
  for j:=1 to 3 do
  begin
   mas2[i,j]:=-3+random(10);
   write(mas2[i,j]:2);
  end;
 writeln;
 end;
 For i:=1 to 7 do
 begin
  sum:=0;
   for j:=1 to 3 do
    sum:=sum+mas2[i,j];
    sr:=sum/j;
    writeln('среднее арифметическое строки ',i,'-й:=',sr:1:3);
    mas1[i]:=sr;
 end;
writeln;
 For i:=1 to 7 do
 begin
  write(mas1[i]:1:2,' ');
 end;
readkey
end.

двухдименсиональный

это типа http://ru.wikipedia.org/wiki/%D0%94%...86%D0%B8%D1%8F

[Roof]

2 ROMA2PVT - это имелось ввиду от английского слова dimension .
одномерный, двухмерный. Но не уверен в правильности написания автором топика.

[crazy_girl1]

спасибо вам большое!! вы мне так помогли!!