Написать программу, которая в массиве случйных чисел С[1..5,1..5] меняет местами значения элементов главной и вспомогательнй диагонали
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
