О Б Р А Б О Т К А М А Т Р И Ц
1. СУММА ЭЛЕМЕНТОВ МАТРИЦЫ
ПОСТАНОВКА ЗАДАЧИ: Для двумерного массива B размером N х M необходимо
вычислить сумму всех элементов матрицы.
Program Summa_Mat;
uses crt;
const n=10;
var a: array[1..n,1..n] of integer;
i,j: integer;
procedure Input; { ввод матрицы по строкам }
ClrScr;
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j])
end;
procedure Print;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln { перевод курсора на новую строку }
end;
readkey;
End;
procedure Sum;
begin
s:=0;
for i:=1 to n do
for j:=1 to m do
s:=s+b[i,j]
end;
Begin
ClrScr;
Input_Mat; { если массив вводится с клавиатуры }
ClrScr;
Print_Mat;
writeln;
Sum;
write('Сумма элементов матрицы равна ',s);
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Ввести дробные и отрицательные числа.