Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > [Pascal] Одномерный массивы

Автор: Dwane 27.1.2009, 18:56

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

Автор: Loginanton 28.1.2009, 16:53

Код

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 если я конечно правильно понял задание. Если непонятно чего будет - поясню