max := a[2, 1];
for i := 1 to 7 do
if i mod 2 = 0 then
for j := 1 to 8 do
if a[i, j] > max then
max := a[i, j];
двухмерные матрицы. Pascal
Дана матрица {Aij} I=1,7 J=1,8. нужно найти максимальный элемент в чётных строках матрицы.
for I:=1 to 7 do
begin
max:=a[1,j];
for j:=1 to 8 do
[COLOR=red]if i mod 2=0 then[/COLOR]
begin
if a[i,j]>max then max:=a[i,j];
end;
end;
что тут не правильно?
До красной строчки всё правильно. Учитель проверял и эту строчку выделил.
for I:=1 to 7 do
begin
max:=a[1,j];
for j:=1 to 8 do
[COLOR=red]if i mod 2=0 then[/COLOR]
begin
if a[i,j]>max then max:=a[i,j];
end;
end;
что тут не правильно?
До красной строчки всё правильно. Учитель проверял и эту строчку выделил.
Цитата:
Originally posted by Пашка
Дана матрица {Aij} I=1,7 J=1,8. нужно найти максимальный элемент в чётных строках матрицы.
for I:=1 to 7 do
begin
[COLOR=red]max:=a[1,j];[/COLOR]
for j:=1 to 8 do
if i mod 2=0 then
begin
if a[i,j]>max then max:=a[i,j];
end;
end;
что тут не правильно?
До красной строчки всё правильно. Учитель проверял и эту строчку выделил.
Дана матрица {Aij} I=1,7 J=1,8. нужно найти максимальный элемент в чётных строках матрицы.
for I:=1 to 7 do
begin
[COLOR=red]max:=a[1,j];[/COLOR]
for j:=1 to 8 do
if i mod 2=0 then
begin
if a[i,j]>max then max:=a[i,j];
end;
end;
что тут не правильно?
До красной строчки всё правильно. Учитель проверял и эту строчку выделил.
Если максимальный среди элементов четных строк, то вот так:
Код:
Цитата:
Код:
for I:=1 to 7 do
begin
max:=a[1,j];
for j:=1 to 8 do
[color=red]if i mod 2=0 then[/color]
begin
if a[i,j]>max then max:=a[i,j];
end;
end;
begin
max:=a[1,j];
for j:=1 to 8 do
[color=red]if i mod 2=0 then[/color]
begin
if a[i,j]>max then max:=a[i,j];
end;
end;
попробуй вместо красной строчки написать:
if not (odd(i)) then ...