VPF::Нахождение макс. элемента каждого столбца

digitech

Дата 11.11.2007, 01:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 271
Регистрация: 1.4.2007

Репутация: нет
Всего: 1

Надо найти максимальный элемент в каждом столбце двумерного массива и переписать в одномерный. Вот мой кусочек кода, который, почему то выполняется неправильно, - а иногда правильно. В чём ошибка, понять не могу.

Код


BEGIN
zapoln; {процедура зполнения массива произвольными числами}
vivod; { процедура вывода массива}
writeln;
for i:=1 to n do
begin
max:=a[i,k];
for k:=1 to m do
if a[k,i]>=max then begin max:=a[k,i]; end;
b[i]:=max;
end;

for i:=1 to m do
Writeln('Номер столбца ',i,'Максимальный элемент этого столбца ',b[i]);
END;

volvo877

Дата 11.11.2007, 02:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Если находишь max в столбце - то:

Код


for i:=1 to n do
begin
  max:=a[1, i]; { <--- первый элемент i-го столбца }
  for k:=1 to m do
  if a[k,i]>=max then begin max:=a[k,i]; end;
  b[i]:=max;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »