Два одномерных массива,представляющие собой средние значения строк и столбцов исходного. Делфи 3

[<DimonM@n>]

Задать с помощью таблицы двумерный массив A[i,j] размером N на M. Образовать два одномерных массива,представляющие собой средние значения строк и столбцов исходного.


Заранее спасибо!))

From Stilet: Если продолжиш в таком же духе называть свои темы как до корректировки ответов тебе не видать

[slips]

ну и в чем проблема то? Задача то не сложная

const
m=2;
n=2;
var
Mas:array[1..m,1..n] of Integer;
srsltb:array[1..m] of Integer;
srstroka:array[1..n] of Integer;
i,sum,j:Integer;
 begin
         for i:=1 to m do
                        for j:=1 to n do
                         readln(mas[i,j]);
         for i:=1 to m do
                        begin
                         sum:=0;
                         for j:=1 to n do
                         sum:=sum+Mas[i,j];
                         srstroka[i]:=sum;
                        end;
         for j:=1 to n do
                        begin
                         sum:=0;
                         for i:=1 to m do
                         sum:=sum+Mas[j,i];
                         srsltb[j]:=sum;
                        end;

   for i:=1 to m do
    writeln(srstroka[i]);
   for j:=1 to n do
    writeln(srsltb[j]);
    readln;

[<DimonM@n>]

Спасибо !))