• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

Помогите, пожалуйста, сделать программу.

  • Автор темы eduard5
  • Дата начала
E

eduard5

Дан массив и надо поменять местами диагонали. Н-р:
Дано:
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;
 
H

hosm

а m во внутреннем for с какого потолка взялось? Вы программу на бумажке пишете или прям тут, на форуме?
Компилировать не умеете?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!