E
eduard5
Дан массив и надо поменять местами диагонали. Н-р:
Дано:
5 2 7
4 6 8
1 9 3
Резутат:
7 2 5
4 6 8
3 9 1
Вот у меня начало.
Дано:
5 2 7
4 6 8
1 9 3
Резутат:
7 2 5
4 6 8
3 9 1
Вот у меня начало.
Код:
const n=100;
var
massiv:array[1..n,1..n] of integer;
res:array[1..n,1..n] of integer;
row,column:integer;
begin
Randomize;
writeln('исходный массив');
for row:=1 to n do begin
for column:=1 to m do begin
massiv[row,column]:=random(100);
write(' ',massiv[row,column]:2);
end;
writeln;
end;