Как доработать код?Работа с матрицами

[Саня Новиков]

Сообщение от digitalis

Для этого прогу и запускать не стоило - и так видно, что знак < нужно перевернуть другим концом

if a[i, j] < MaxElem then MaxElem := a[i, j];

СПАСИИИБО!!

[digitalis]

Та пожалуйста Учи Паскаль - это очень просто. В жизни пригодится.

[Саня Новиков]

Я вот сейчас понял, что мне-то нужен бейсик, а не паскаль, как переписать код?
Думаю, сильно отличаться не будет

var
  A: array[1..10, 1..10] of integer;
  i, j, M, N: byte;
  MaxElem: integer;

begin
  write('M = ');
  readln(M);
  write('N = ');
  readln(N);
  { Формируем и выводим матрицу: }
  randomize;
  writeln('Случайная матрица ', M, 'x', N, ':');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный элемент в каждой строке:');
  for i := 1 to M do begin
    { Начальное значение максимального элемента 
     равно первому элементу строки (j = 1): }
    MaxElem := a[i, 1];
    for j := 2 to N do { Проверяем остальные элементы строки: j = 2, 3, ..., N }
      { Если a[i,j] больше максимума, то новым максимумом становится a[i,j] }
      if a[i, j] > MaxElem then MaxElem := a[i, j];
    writeln(i, '-я строка: максимальный элемент = ', MaxElem)
  end;
  readln
end.

[digitalis]

Бейсик - отстой. Отличаться будет не сильно - как перевод на шведский с итальянского оригинала.