Программирование операций обработки двумерных массивов

[Дима82]

Не понял ,как это... Всё равно также получается ... Можешь показать на моём примере...

[А. Долматов]

Uses crt;
Const M=5;
N=5;
Var A: array[1..M,1..N] of real;
C: array[1..M] of real;
zam:real;
P,I,r:1..M;
Q,J:1..N;
Begin
Clrscr;
Write('BBedite razmernost matricy ne bolee 5*5: ');
Readln(P,Q);
Writeln('BBedite elementy matricy:');
For I:=1 to P do
For J:=1 to Q do
Begin
Write('A[',I: 1,',',J: 1,']=');
Readln(A[I,J])
End;
Writeln('Kontrolnyi Byvod matricy: ');
For I:=1 to P do
Begin
For J:=1 to Q do Write (A[I,J]:4:2,'':3);
Writeln;
End;
Writeln('Zamena: ');
r:=p div 2;
For I:=1 to r do
Begin
zam:=A[I,3];
A[I,3]:=A[r-(I-1),3];
A[r-(I-1),3]:=zam;
end;
For I:=1 to P do
Begin
For J:=1 to Q do Write (A[I,J]:4:2,'':3);
Writeln;
End;
Readln
End.

[Дима82]

Я так и сделал выходит ошибка - не соответствие типов на строке A[I,3]:=A[r-(I-1),3];

Поменял тип всёравно не получается...

[Дима82]

Аууууу, люди кто-нибудь поможет мне?

[puporev]

For I:=1 to r do 
Begin 
zam:=A[I,3]; 
A[I,3]:=A[r-(I-1),3]; 
A[r-(I-1),3]:=zam; 
end;

Замени на

For I:=1 to r do 
Begin 
zam:=A[I,3]; 
A[I,3]:=A[p-(I-1),3]; 
A[p-(I-1),3]:=zam; 
end;

[Дима82]

Так я всё это сделал, результат один и тот же ничего не происходит(матрица остаётся такой же)...

[Дима82]

А-а-а-а я понял, я просто вводил матрицу 2*2, поэтому ничего не происходило(3*3 получается).

Т.е. я могу сделать это с первым столбцом:

 Begin
 zam:=A[I,1];
 A[I,1]:=A[P-(I-1),1];
 A[P-(I-1),1]:=zam;
 end;

Спасибо всем.