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

Dwane

Дата 27.1.2009, 19:31 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Hang

Дата 27.1.2009, 21:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


program Project2;

uses crt;

  var
    i,imax : integer;
    max: Real;
    s: array[1..12] of real;
    t: array[1..12] of real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  //задаем элементы массива
  for i:=1 to 12 do
  begin
    write('s[',i,']=');
    Readln(s[i]);
  end;
  //находим максимальный индекс массива s
  imax:=1;
  for i:=2 to 12 do
    if (s[i]>s[imax]) then
      imax:=i;
  for i:=1 to 12 do
    if i<imax then
      t[i]:=s[1]
    else
      t[i]:=s[i];
  //выводим массив t
  writeln;
  writeln('massiv t:');
  for i:=1 to 12 do
    writeln('t[',i,']=',t[i]:5:2);
  Readln;


end.

Dwane

Дата 27.1.2009, 21:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Большое спасибо!

Hang

Дата 27.1.2009, 21:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

Пожалуйста, с тебя пиво! smile

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