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

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

eduard5

#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;
 

hosm

* so what *
18.05.2009
2 442
6
#2
а m во внутреннем for с какого потолка взялось? Вы программу на бумажке пишете или прям тут, на форуме?
Компилировать не умеете?