Исправить ввод и вывод - Pascal ABC

Формулировка задачи:

Написал программу но есть две проблемы: 1.Почему не выводиться массив?(исправьте пожалуйста)2.Помогите сделать ввод строк и столбцов с клавиатуры Вот сама программа:
const
nmax=100;
var i,j,n:integer;
S2,S3:real;
A:array[1..nmax,1..nmax] of integer;
begin
writeln ('Введите размер массива n=');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
for j:=1 to n do
begin
write ('A[',i,',',j,']=');
readln (A[i,j]);
end;
S2:=0;
S3:=0;
for i:=1 to n-1 do
for j:=1 to n-i do
S2:=S2+A[i,j];
for i:=2 to n do
for j:=n-i+2 to n do
S3:=S3+A[i,j];
writeln( 'Исходный массив:');
for i:=1 to nmax do
begin
writeln;
for j:=1 to n do
writeln (A[i,j]);
writeln('Сумма элементов выше побочноый диогонали ',S2);
writeln('Сумма элементов ниже побочноый диогонали ',S3);
readln;
end;
end.


textual

Код к задаче: «Исправить ввод и вывод - Pascal ABC»

for i:=1 to n do
for j:=1 to n do
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.000 из 5

Источник
Похожие ответы