...Всю строку вводишь через пробелы, после этого нажимаешь Enter...
writeln('vvedite elementi matrici');
for i:=1 to n do begin
write(i:2, '-я строка: ');
for j:=1 to n do read(p[i,j]);
readln;
s1:=s1+p[i,i];
s2:=s2+p[i,n+1-i];
end;
...
Вычислить сумму элементов главной диагонали..., Задача на матрицы |