Question

Написать программу, которая в массиве случйных чисел С[1..5,1..5] меняет местами значения элементов главной и вспомогательнй диагонали

Answer 1

program pr;
uses crt;
Var i,j,b:integer;
C:array[1..5, 1..5] of integer;
Begin
for i:=1 to 5 do Begin
Writeln;
    for j:=1 to 5 do Begin C[i,j]:=random(100); Write(C[i,j],'|');  end;
     end;
for i:=1 to 5 do
     Begin
           b:=C[i,i];
           C[i,i]:=C[i,6-i];
           C[i,6-i]:=b;
      end;
Writeln;
      
for i:=1 to 5 do Begin
Writeln;
    for j:=1 to 5 do  Write(C[i,j],'|');
     end;
      

readln;
end.

Answer 2

uses crt;

var C:array[1..5,1..5] of integer;

i,j,temp:integer;

 

begin

   randomize();

   for i:=1 to 5 do

      for j:=1 to 5 do

         C[i,j]:=random(1000);

   for i:=1 to 5 do begin

      t:=C[i,i];

      C[i,i]:=C[i,6-i];

      C[i,6-i]:=t;

   end

end.