массивы

[chertovka.]

помогите додумать...
по заданной матрице А размерностью n*m сформировать вектор z размерностью n. состоящий из максимальных элементов строк матрицы.

uses crt;
const n=3, m=4;
 var a: array[1..n,1..m] of integer;
 z:array[1..n] of integer;
 i, j, max :integer;begin
 clrscr;
 randomize;
 writeln ('исходная матрица');
  for j:=1 to n do
begin
 for j:=1 to m do
begin
 a[i,j]:=random(100) {пишет ошибка проверки диопозона}
 write(a[i,j]:3;
  end;
writeln;
 end;
 for i:= 1 to N do
  begin
 max:=1;
 for j:= 1 to M do
 if a[i,j]>a[i,max];
 end;
 for i:= 1 to N do
 writeln(z[i],' ');
 readln;
 end.

[Utkin]

диопозона

Прям так и пишет? Можно увидеть настоящий текст ошибки?
Разве после

a[i,j]:=random(100)

не должна быть точка с запятой?

[Chudo4258]

program Project2;
const n=5; m=7;
var a: array[1..n,1..m] of integer;
z:array[1..n] of integer;
i, j, max :integer;
begin
randomize;
writeln ('исходная матрица');
for i:=1 to n do
begin
 for j:=1 to m do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:3);
  end;
 writeln;
end;
for i:= 1 to n do
 begin
  max:=a[i,1];
  for j:=2  to m do
   if a[i,j]>max then max:=a[i,j];
  z[i]:=max;
 end;
for i:= 1 to n do
writeln(z[i],' ');
readln;
end.

22.06.jpg

[_-Re@l-_]

write(a[i,j]:3;

Тут как бы ещё должна быть скобка

[Chudo4258]

да тут везде ошибки

if a[i,j]>a[i,max];

если ЛУ то операторы в противном случае операторы;

и еще очнь странная вещь:

for i:= 1 to N do
writeln(z[i],' ');

выводит массив z ничего туда незаписав.