Найти сумму элементов главной диагонали матрицы (Паскаль.)

[r.elen]

Дорогие программисты,
Нужна ваша помощь.

Найти сумму элементов главной диагонали матрицы A(n,n). n=12.

Код:

program lar3;
uses crt;
var
A:array [1..12, 1..12] of integer;
i,j,n,sum: integer;

begin
clrscr;
writeln ('vvedite n=');
readln (n);
writeln (vvedite A');
for i:=1 to n do
for j:=1 to n do
readln (A[i,j]);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write (A[i,j]:5);
end;
writeln;
sum:=0;
for i:=1 to n do
sum:=sum+A[i,i];
writeln ('suma diagonaly=', sum);
readln;
end.

Проверьте пожалуйста если код правильный. А еще, при выводе на экране, у меня матрица как-то странно появляется. Может я что-то пропустила???

Заранее благодарю



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Nursik77]

program lar3;
uses crt;
var
A:array [1..12, 1..12] of integer;
i,j,n,sum: integer;

begin
clrscr;
writeln ('vvedite n=');
readln (n);
writeln (vvedite A');
for i:=1 to n do
for j:=1 to n do
readln (A[i,j]);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write (A[i,j]:5);
end;
writeln;
sum:=0;
for i:=1 to n do
sum:=sum+A[i,i];
writeln ('suma diagonaly=', sum);
readln;
end.

sum:=sum+A[i,i];
просто замени на sum:=sum+A[i,j];

[malinoff]

А зачем Вы спрашиваете размер матрицы у пользователя, если он задан в условии задачи?
Про вывод - возможно, не ставите пробел после вывода элемента матрицы на экран?
Сумму верно считаете
И да, возможно это ошибка при переносе кода - writeln (vvedite A'); Открывающей кавычки нет.

[malinoff]

Сообщение от Nursik77

sum:=sum+A[i,i];
просто замени на sum:=sum+A[i,j];

Неправду говорите.

[Nursik77]

Сообщение от malinoff

Неправду говорите.

Почему это? Основное решение это if(i=j) то sum=sum+a[i][j].

[Nursik77]

Извините я забылся, это ведь в СИ.

[malinoff]

Сообщение от Nursik77

Почему это? Основное решение это if(i=j) то sum=sum+a[i][j].

В цикле for i := 1 to n do sum := sum + a[i][i] как раз и выполняется условие i = j.

[Serge_Bliznykov]

malinoff, +1

r.elen, всё правильно. матрица выводится нормально, ничуть не странно.
Единственное, в вашем коде пропущена открывающий апостороф в строчке:

  writeln ('vvedite A');

а в остальном, прекрасная маркиза, всё хорошо, всё хорошо..

[Novenkaja]

Сообщение от malinoff

И да, возможно это ошибка при переносе кода - writeln (vvedite A'); Открывающей кавычки нет.

я конечно не великий программист,но тут походу дело не только в открывающейся кавычке.но ещё и в первом слове
пишут же обычно write (vvedite A); ,а не writeln

[Nursik77]

Сообщение от Novenkaja

я конечно не великий программист,но тут походу дело не только в открывающейся кавычке.но ещё и в первом слове
пишут же обычно write (vvedite A); ,а не writeln

Вы кажется не изучали Паскаль, как-раз таки writeln и будет. "WriteLine" что в переводе(слово в слово) "написать линию".