Убрать рандом

Роман)

 program bl9;
uses crt;
var
  Matr: array[1..5, 1..5] of longint;
  Proizv, Summa: longint;
  i, j: byte;
begin
textbackground(5);
  Proizv:=1;
  writeln('Матрица: ');
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    begin
      Matr[i, j]:=random(5)+1;
      write(Matr[i, j]:4);
      if (i = j) then
      begin
        Summa:=Summa+Matr[i, j];
        Proizv:=Proizv*Matr[i, j];
      end;
    end;
    writeln;
  end;
  writeln('Сумма элементов главной диагонали: ', Summa);
  writeln('Произведение элементов главной диагонали: ', Proizv);
  writeln('Новая матрица: ');
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    begin
      if odd(i) then Matr[i, j]:=Matr[i, j]*Summa;
      if not odd(j) then Matr[i, j]:=Matr[i, j]*Proizv;
      write(Matr[i, j]:8);
    end;
    writeln;
  end;
end.
1 ответ

Роман)

program bl9;
uses crt;
var
  Matr: array[1..5, 1..5] of longint;
  Proizv, Summa: longint;
  i, j: byte;
begin
textbackground(5);
  Proizv:=1;
  writeln('Заполняем матрицу: ');
  for i:=1 to 5 do
    for j:=1 to 5 do
    begin
      write('Matr[',i,',',j,']=');
      readln(Matr[i,j]);
    end;
  writeln('Матрица: ');
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    begin
      write(Matr[i, j]:4);
      if (i = j) then
      begin
        Summa:=Summa+Matr[i, j];
        Proizv:=Proizv*Matr[i, j];
      end;
    end;
    writeln;
  end;
  writeln('Сумма элементов главной диагонали: ', Summa);
  writeln('Произведение элементов главной диагонали: ', Proizv);
  writeln('Новая матрица: ');
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    begin
      if odd(i) then Matr[i, j]:=Matr[i, j]*Summa;
      if not odd(j) then Matr[i, j]:=Matr[i, j]*Proizv;
      write(Matr[i, j]:8);
    end;
    writeln;
  end;
end.