VPF::[Pascal] Одномерный массивы - Форум программистов

Dwane

Дата 27.1.2009, 18:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток.
Помогите пожалуста решить задачу или подскажите один момент.Вобщем задача
Дан одномерный массив S1....S12 построить массив Т1...Т12 заменив в исходном массиве все элементы рассположенный до Smax на S1.
Вобщем проблема в чем я не знаю как заменить элементы до Смакс.Надо узнать индекс Смакс или присвоить?И если присвоить то что потом с ним делать? =)
Если не трудно напишете код =)
Заранее благадарен.

Loginanton

Дата 28.1.2009, 16:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код

program eee;
var
    i , j : byte;
          t , s : array[1..12] of integer;
          tmp , smax : integer;
begin
    for i := 1 to 12 do begin
        readln(s[i]);
                    t[i] := s[i];
                    end; { for }
          for j := 11 downto 1 do
          for i := 1 to j do
          if t[i] > t[i + 1] then begin
                    tmp := t[i];
                    t[i] := t[i + 1];
                    t[i + 1] := tmp;
                    end; { if }
          smax := t[12];
          { --------------- }
          for i := 1 to 12 do
          t[i] := s[i];

          i := 1;
          while t[i] <> smax do begin
           t[i] := s[1];
           i := i + 1;
           end; { while }

          for i := 1 to 12 do
          write(' ', t[i]);
          readln;
          end. { program }

Вот собственно :-D если я конечно правильно понял задание. Если непонятно чего будет - поясню

Это сообщение отредактировал(а) Loginanton - 28.1.2009, 16:55

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