Предмет: Информатика,
автор: arsvaarghoyk
Дан целочисленный двумерный массив,равномерности m x n ,найти сумму всех элементов массива
Ответы
Автор ответа:
0
var
mas : array [1..100,1..100] of integer;
n,m,i,j,summa:integer;
begin
write('Введите количество строк n='); readln(n);
write('Введите количество столбцов m='); readln(m);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(99);
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:2,' ');
writeln;
end;
summa:=0;
for i:=1 to n do
for j:=1 to m do
summa:=summa+mas[i,j];
write('Сумма=', summa);
end.
mas : array [1..100,1..100] of integer;
n,m,i,j,summa:integer;
begin
write('Введите количество строк n='); readln(n);
write('Введите количество столбцов m='); readln(m);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(99);
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:2,' ');
writeln;
end;
summa:=0;
for i:=1 to n do
for j:=1 to m do
summa:=summa+mas[i,j];
write('Сумма=', summa);
end.
Похожие вопросы
Предмет: Математика,
автор: germanvorobev8
Предмет: Математика,
автор: arianasterligova50
Предмет: Русский язык,
автор: kichibekovlmam2006
Предмет: История,
автор: glushko1233