Question

Информатика. В Паскале с подробным решением.
Задана матрица А(5, 5). Вычислить сумму элементов верхней треугольной матрицы, включая элементы ее главной диагонали. Преобразовать исходную матрицу, присвоив всем элементам главной диагонали значения, равные 1. Полученную матрицу напечатать по строкам.

Answer 1

//Pascal
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.