Задача на Паскале. Подскажите, где ошибка?Var A:array[1..6,1..6] of integer; X:array[1..6] of byte; i,j,n:byte; sum:longint; Begin write('Введите кол-во строк N: ');readln(n); sum:=0; For i:=1 to n do Begin ...
Задача на Паскале. Подскажите, где ошибка?
Var A:array[1..6,1..6] of integer;
X:array[1..6] of byte;
i,j,n:byte;
sum:longint;
Begin
write('Введите кол-во строк N: ');
readln(n);
sum:=0;
For i:=1 to n do
Begin
For j:=1 to n do
Begin
write (vvedite matricy A[i,j]: ') ;
write(A[i,j]:4);
sum:=sum+A[i,j];
End;
if (A[i,i])>(A[i,j]) then x[i]:=0
else x[i]:=1;
writeln;
End;
writeln ('Полученный массив');
For i:=1 to n do
write(X[i]:2);
writeln;
writeln('сумма матрицы = ', sum);
readln;
End.
Гость
Ответ(ы) на вопрос:
ГостьЕсли в синтаксисе, то в строке write (vvedite matricy A[i,j]: ') ; после первой открывающей скобки пропущен апостроф.
Не нашли ответ?
Похожие вопросы