МОЙ вам вопрос по матрицам...., Отладка и исполнение программы...Возможно Опции

[Slava8888]

У меня задача по массивам:Дана матрица размером 4х4. Поменять местами
строки и столбцы этой матрицы.
Вот мой исходник, проверьте пожалуйста,что не так:

Program Mas_2;
Var
matr:array[1..4,1..4] of integer;
i,j,buf:integer;
BEGIN
for i:=1 to 4 do
for j:=1 to 4 do begin write('vvedite element',i,'',j,'');
readln (matr[i,j]);
end;
Writeln('Sodergmoe matrici do obrabotki');
for i:=1 to 4 do begin for j:=1 to 4 do write(matr[i,j]:4);
writeln;
end;
for i:=1 to 4 do
for j:=1 to 4 do begin
buf:=matr[i,j];
matr[i,j]:= matr[j,i];
matr[j,i]:= buf;
end;
writeln('sodergimoe matrici posle obrabotki');
for i:=1 to 4 do begin for j:=1 to 4 do
write(matr[i,j]:4);
writeln;
end;
END.
Прога в паскале нормально выполняется, без ошибок. Но всё равно мне препод сказал что неправильно.
Далее запускаю ехе проги, и она постоянно просит вводить числа до бесконечности, тоесть:
введите элемент-ввели цифру->жмем ентер и с новой строки опять строка "введите элемент" и так до бесконечности.
Видимо прога пашет как то неправильно,ПРОШУ ВАС ПОПРАВЬТЕ МЕНЯ!!

[мисс_граффити]

ну почему же до бесконечности? до того, как введешь 16 элементов.

for i:=1 to 4 do
for j:=1 to 4 do begin
buf:=matr[i,j];
matr[i,j]:= matr[j,i];
matr[j,i]:= buf;
end;

У тебя элементы поменяются местами дважды... то есть вернутся в исходное состояние.
делай j не от 1 до 4, а от 1 до i (даже до i-1), то есть только для элементов, лежащих ниже главной диагонали.

[Гость]

ну почему же до бесконечности? до того, как введешь 16 элементов.

for i:=1 to 4 do
for j:=1 to 4 do begin
buf:=matr[i,j];
matr[i,j]:= matr[j,i];
matr[j,i]:= buf;
end;

У тебя элементы поменяются местами дважды... то есть вернутся в исходное состояние.
делай j не от 1 до 4, а от 1 до i (даже до i-1), то есть только для элементов, лежащих ниже главной диагонали.

Спасибо!