Ответ:
program prog;
var
a:array[1..3,1..3] of integer;
i,j,sum:integer;
begin
sum:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write('Введите элемент матрицы с индексом [',i,',',j,']: '); readln(a[i,j]);
sum:=sum+a[i,j];
end;
write(a[i,j], ' ');
writeln();
writeln('Сумма всех элементов матрицы равна: ', sum);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program prog;
var
a:array[1..3,1..3] of integer;
i,j,sum:integer;
begin
sum:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write('Введите элемент матрицы с индексом [',i,',',j,']: '); readln(a[i,j]);
sum:=sum+a[i,j];
end;
end;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
write(a[i,j], ' ');
end;
writeln();
end;
writeln('Сумма всех элементов матрицы равна: ', sum);
end.