задача на Паскале. Подскажите, где ошибка?

+ 0 -

Katya13062003

19 февр. 2015 г., 7:25:29 (9 лет назад)

Прикрепил исправление в виде скриншота и текстового документа с программой.
Var  
A:array[1..6,1..6] of integer; 
X:array[1..6] of byte; 
i,j,n:byte; 
sum:longint;  
Begin     
writeln('Введите кол-во строк N: '); 
readln(n); 
sum:=0; 
writeln ('Введите матрицу A: ') ;   
For i:=1 to n do   
Begin   
For j:=1 to n do     
Begin       
writeln('Введите элемент номер ',i,':',j);     
readln(A[i,j]);          
sum:=sum+A[i,j];     
if (A[i,i])>(A[i,j]) then x[i]:=0             
else x[i]:=1;             
writeln;     
End;      
End;   
writeln ('Полученный массив');   
For i:=1 to n do   
write(X[i]:2);  
writeln;
writeln('Сумма всех элементов матрицы = ', sum);
readln;
End.

+ 0 -

Zajtzevatatjana

19 февр. 2015 г., 8:51:00 (9 лет назад)

Если в синтаксисе, то в строке write (vvedite matricy A[i,j]: ') ;