Вычислить сумму элементов главной диагонали..., Задача на матрицы Опции

[kvadrat]

Условие:

Проверьте плиз, правильно ли я решил?

program qwesadf;
uses crt;
var p:array[1..7,1..7] of real;i,j:integer;s1,s2:real;
begin
clrscr;
s1:=0;
s2:=0;
writeln('vvedite elementi matrici');
for i:=1 to 7 do
for j:=1 to 7 do
begin
readln(p[i,j]);
s1:=p[1,1]+p[2,2]+p[3,3]+p[4,4]+p[5,5]+p[6,6]+p[7,7];
s2:=p[1,7]+p[2,6]+p[3,5]+p[4,4]+p[5,3]+p[6,2]+p[7,1];
end;
writeln('summa elementov glavnoi diagonali     ',s1:2:2);
writeln('summa elementov diagonali simetrichnoi glavnoi    ',s2:2:2);
end.

[volvo]

если у меня ввод построчный то зачем учитель сказала мне исправить задание так чтоб ввод был построчный?

Это ты у нее спрашивай, зачем она тебя "на испуг берет"... Не можешь объяснить - значит, не понимаешь, как это работает... А ты объясни... Хотя бы то, что я написал. И не надо никакие Begin/End просто так добавлять. Программа работает? Работает. Чего ей не нравится??? Ей надо, чтоб она НЕ работала, что-ли?

Кстати, я бы на твоем месте сделал вещь, которая поставит твою "учительницу" (чему она научить может - непонятно) на место:

program werqwrsdfgse;
uses crt;
const n=2;
var
  p: array[1..n, 1..n] of real;
  i,j:integer;
  s1,s2:real;
begin
  clrscr;
  s1 := 0;
  s2 := 0;
  writeln('vvedite elementi matrici');
  for i:=1 to n do begin
    for j:=1 to n do readln(p[i,j]);
    s1:=s1+p[i,i];
    s2:=s2+p[i,n+1-i];
  end;

  writeln('matrix:');
  for i := 1 to n do begin
    for j := 1 to n do write(p[i, j]:5:2);
    writeln;
  end;

  Writeln('summa elementov glavnoi diagonali      ',s1:2:2);
  Writeln('summa elementov diagonali simetrichnoi glavnoi     ',s2:2:2);
end.

Результат выполнения:

vvedite elementi matrici
1
3
4
5
matrix:
1.00 3.00
4.00 5.00
summa elementov glavnoi diagonali 6.00
summa elementov diagonali simetrichnoi glavnoi 7.00

Так как вводится матрица?