Двумерный массив

[VIP11]

Разработать алгоритм для вычисления среднего арифметического любых указанных строки или столбца двумерного массива размером [n x m]. Значения n и m должны вводится с клавиатуры (принять 3<=n<=8 ; 4<=m<=10). Ввод номера строки и столбца- с клавиатуры. Предусмотреть вывод исходного массива в виде таблицы. Обеспечить по желанию пользователя возможность вывода исходного массива и результатов расчета в текстовый файл.
(помогите чем сможете)

[NetSpace]

const n=8;
        m=10;
var a:array[1..n,1..m]of Real;
     id,num,i:Integer;
     sum,sr:Real;
begin
   Read('nomer = ', num);
   Read('ident (0 or 1) = ', id);
   if(id=1)then
   begin
      for i:=1 to n do sum:=sum+a[i,num];//по строке идём
      sr:=sum/n;
      WriteLn('среднее по ',num, ' строке = ', sr);
   end;
   if(id=0)then
   begin
      for i:=1 to m do sum:=sum+a[num,i];//или по столбцу идём
      sr:=sum/m;
      WriteLn('среднее по ',num, ' столбцу = ', sr);
   end;
   Read;
end;

ввод и вывод массива не сделан. и запись в файл отсутствует.

[VIP11]

пасиба большое выручил

[VIP11]

а как зделать что бы ввод масива был рандомным ?

[NetSpace]

for i:=1 to n do for j:=1 to m do a[n,m]:=10*(2*Random-1);

(2*Random-1) - это чтоб можно было получать как полжительные, так и отрицательные значения от -10 до +10