Паскаль.Сумма элементов прямоугольной таблицы раз-ом n*m

[Mariya0202]

Привет всем!Помогите,пожалуйста, код написать:Найти сумму элементов прямоугольной тблицы размером n*m.

[russian-stalker]

Задача легкая, но без наработок ваших, вам никто её не сделает...

[MaGWaY_minsk]

Заполнение матрицу думаю каждый может сделать.
а потом тем же самым способом в цикле считаете...
например, завели счётчик который будет накапливать сумму и погнали...

....
s:=0;
for i:=0 to n-1 do
   for j:=0 to m-1 do
   s:=s+mas[i,j];
....

[MaGWaY_minsk]

Вот полностью код.

uses crt;
const
     RND=11; {предел генерации случайных значений}
type
    index = array [1..100,1..100] of integer; {описание типа массива}
var
   mas:index; {сам массив}
   i,j,m,n,s:integer; {i,j - строк\столбец, n,m их кол-во, s - сумма елементов}
BEGIN
randomize;
clrscr;

writeln('Vvedite razmernost massive');
write('Kol-vo strok: ');
readln(n);
write('Kol-vo stolbcov: ');
readln(m);

{заполнение и вывод массива}
for i:=0 to n-1 do
begin
    for j:=0 to m-1 do
    begin
         mas[i,j]:=random(RND);
         write(mas[i,j], ' ');
    end;
    writeln;
end;

s:=0; {начальное значение суммы}
{подсчёт суммы элементов}
for i:=0 to n-1 do
    for j:=1 to m-1 do
    s:=s+mas[i,j];

writeln;
writeln('summa elementov massiva ravna: ',s);
readkey;
END.

как-то так... =)

[Mariya0202]

СПАСИБО!!!