Для прямоугольной матрицы построить вектор В с номерами максимальных значений строк (Паскаль)-проверить

[Марьянка]

Проверьте пожалуйста. нt могу сама проверить, так как не получается установить Pascal. Ввести размер прямоугольной матрицы и значения ее элементов. Построить вектор В, где В(i) - номер максимального значения в i-ой строке.
Код:

VAR
 A:ARRAY[1..10,1..10] of WORD;
 M:ARRAY[1..10] of WORD;
 Nl,Nc,i,j:INTEGER;
BEGIN
 Write('Enter the number of lines (<=10): ');
 ReadLn(Nl);
 Write('Enter the number of columns(<=10): ');
 ReadLn(Nc);
 WriteLn('Enter the integer positive values of matrix elements:');
 For i:=1 to Nl do
  For j:=1 to Nc do
   begin
    Write('A[',i,',',j,']= ');
    ReadLn(A[i,j]);
   end;
 WriteLn;
 For i:=1 to Nl do
  begin
   For j:=1 to Nc do
    Write(A[i,j]:8);
   WriteLn;
  end;
 WriteLn;
 For j:=1 to Nc do
  begin
   M[j]:=A[1,j];
   For i:=2 to Nl do
    If A[i,j]>M[j] then M[j]:=A[i,j];
  end;
 WriteLn('The array of maximum column values:');
 For j:=1 to Nc do
  WriteLn('M[',j,']= ',M[j]);
 ReadLn;
END.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[vasilisk-green]

Результаты работы вашей программы в том варианте, в котором она была 1 апреля в полночь.

Enter the number of lines (<=10): 3
Enter the number of columns(<=10): 5
Enter the integer positive values of matrix elements:
A[1,1]= 5
A[1,2]= 1
A[1,3]= 2
A[1,4]= 1
A[1,5]= 4
A[2,1]= 4
A[2,2]= -1
A[2,3]= 2
A[2,4]= 3
A[2,5]= 0
A[3,1]= 5
A[3,2]= 8
A[3,3]= 100
A[3,4]= -1
A[3,5]= -1

       5       1       2       1       4
       4   65535       2       3       0
       5       8     100   65535   65535

The array of maximum column values:
M[1]= 5
M[2]= 65535
M[3]= 100
M[4]= 65535
M[5]= 65535

Как видно, в программе не учтена проверка на положительность вводимых значений, но это не критично, правда?

Построить вектор В, где В(i) - номер максимального значения в i-ой строке.

Именно номер, а не значение. И именно в строке, а не в столбце. Подкорректированный вариант приводить не буду: у вас и так неплохо получается, хотя если хотите....

For i:=1 to Nl do
    begin
      M[i]:=A[i,1];
      For j:=2 to Nc do
        If A[i,j]>M[i] then M[i]:=A[i,j];
    end;
    WriteLn('The array of maximum rows values:');
    For i:=1 to Nl do
      WriteLn('M[',i,']= ',M[i]);

не получается установить Pascal

А что с ним?