паскаль.

[Наталья Николаевна]

помогите пожалуста. Составить программу на языке Pascal для решения следующей задачи: дан двумерный массив размерности nxn. Вывести на экран элементы, стоящие на главной диагонали матрицы. вот что получилось у меня:

program zadacha;
var a: array [1..10,1..10] of real;
j,i,n,m : integer;
begin
write ('ввод элементов строки n=');
readln (n);
write ('ввод кол-ва столбцов m=');
readln (m);
for i:=1 to n do
for j:=1 to m do
readln (a[i,j]);
for i:=1 to n do
for j:=1 to m do
writeln ('a[i,j]=', a[i,j]);
end.

[rubius2008]

вот такой вывод попробуйте:

for i:=1 to n do
writeln ('a[',i,',',i,']=', a[i,i]);

кстати достаточно только n задавать ведь матрица nxn

[Naive]

задача то не решена как-бы, ты просто выплевываешь все значения матрицы, которые ввела...
тут нужно ставить условие на вывод

for i:=1 to n do
for j:=1 to n do
if (i=j) writeln ('a[i,j]=', a[i,j]);

* синтаксис паскаля помню очень плохо, могу ошибаться...

-----------
а еще, в условии квадратная матрица, nxn, зачем спрашивать кол-во столбцов дополнительно? - или ты ваще не в нашей атмосфере?)