Question

задача на Паскале. Подскажите, где ошибка?
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.

Answer 1

Если в синтаксисе, то в строке write (vvedite matricy A[i,j]: ') ; после первой открывающей скобки пропущен апостроф.

Answer 2

не поняла

Answer 3

Вы условие написали, что проверяется: элемент A(i,j), т.е. любой должен быть больше всех элементов в строке i. Нарисуйте себе массив 3х3, заполните числами от 1 до 9 и попробуйте руками найти такой элемент

Answer 4

Прикрепил исправление в виде скриншота и текстового документа с программой.
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.

4b595ab925e5f7d2bfc0366ebf2d82dd.txt

Answer 5

То как происходит сравнение, я прекрасно вижу и то что это бред я понимаю. Но очевидные ошибки, например, то что вместо read написано write я исправил.

Answer 6

Отлично, но поскольку я в телепатию не верю, оставляю Вам возможность продолжать)))