Информатика. В Паскале с подробным решением.
Задана матрица А(5, 5). Вычислить сумму элементов верхней треугольной матрицы, включая элементы ее главной диагонали. Преобразовать исходную матрицу, присвоив всем элементам главной диагонали значения, равные 1. Полученную матрицу напечатать по строкам.
Задана матрица А(5, 5). Вычислить сумму элементов верхней треугольной матрицы, включая элементы ее главной диагонали. Преобразовать исходную матрицу, присвоив всем элементам главной диагонали значения, равные 1. Полученную матрицу напечатать по строкам.
More Questions From This User See All
Answers & Comments
var
A: array [1 .. 5, 1 .. 5] of integer;
i, j, SUM: integer;
begin
randomize;
writeln(' ***Исходная матрица***');
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
A[i, j] := random(50);
if j >= i then SUM := SUM + A[i, j];
write(A[i, j]:4);
end;
writeln;
end;
writeln;
writeln('Сумма элементов = ', SUM);
writeln;
writeln(' ***Измененная матрица***');
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
if i = j then A[i, j] := 1;
write(A[i, j]:4);
end;
writeln;
end;
readln;
end.