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

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

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


Заполнение матрицу думаю каждый может сделать. а потом тем же самым способом в цикле считаете... например, завели счётчик который будет накапливать сумму и погнали...
....
s:=0;
for i:=0 to n-1 do
 for j:=0 to m-1 do
 s:=s+mas[i,j];
....


Вот полностью код.
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.
как-то так... =)


СПАСИБО!!!