VPF::Двумерный массив - Форум программистов

frogg

Дата 28.5.2009, 11:04 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

дано: массивы A(N,N),B(M,M),C(N1,N1) использую подпрограмму наименьший элемент каждой строки исходного массива,начиная со 2й,заменить большим элементом предшествующей строки

Помогите пожалуйста! Заранее спасибо

BeKToP

Дата 4.6.2009, 14:20 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


for y:=2 to m do begin
  for x:=1 to m do begin
    if a[x,y]<min then begin
      min:=a[x,y];
      id_min:=x; 
    end;
    if a[x,y-1]>max then begin
      max:=[x,y];
      id_max=x;
    end;
  end;
  a[id_min,y]:=a[id_max,y-1];
end;

Оформи как процедуру и будет тебе счастье smile

PS. Торопился и без паскаля писал, так что если там какие ошибки пиши исправлю smile

кстати а зачем три массива??
может я задание не так понял?

Это сообщение отредактировал(а) BeKToP - 4.6.2009, 14:21

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