VPF::[Pascal] Найти наибольшее значение в массиве

Babyuk

Дата 14.11.2006, 21:34 (ссылка)

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

Загрузка ...

Новичок

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

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

Дан массив B(40),сформированный датчиком случайных чисел на интервале [-150;150].Найти наибольшее значение элемента данного массива и:1)удалить наибольшее значение элементов массива(предпологаеться что такой элемент один).2)перед наибольшим значением элемента массива вставить 1(если таких элементов несколько,перед каждым вставить 1).Заранее спасибо.
<скрыто>

Это сообщение отредактировал(а) alexeis1 - 14.11.2006, 21:44

Alexeis

Дата 14.11.2006, 21:46 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

M
alexeis1

Модератор: чтитайте правила:
Цитата

14. Если у Вас есть вопрос, то его следует задавать на форуме. Категорически запрещено приставание к участникам форума по ПМ, ICQ или e-mail без их согласия на это.

Это сообщение отредактировал(а) alexeis1 - 14.11.2006, 21:50

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Romikgy

Дата 15.11.2006, 17:10 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


const tab:Char=Char(9);
var B,C: array [1..40] of Integer;
    i,max_ind,temp: Integer;
    D: array[1..41] of Integer;
begin
  ///////////Gen random array////////////
  Randomize;
  for i:=1 to 40 do
  B[i]:=Round(Random(300))-150;
  ////////////////find max element//////////////////
  temp:=B[1];
  max_ind:=1;
  for i:=2 to 40 do
  if temp>B[i] then
  begin
    temp:=B[i];
    max_ind:=i;
  end;
  ///////////create new array without max///////
  i:=1;
  while i<>max_ind do
  begin
  C[i]:=B[i];
  i:=i+1;
  end;
  while i<>39 do
  begin
  C[i]:=B[i+1];
  i:=i+1;
  end;
  /////////////create new array with insert 1////
  i:=1;
  while i<>max_ind do
  begin
  D[i]:=B[i];
  i:=i+1;
  end;
  i:=i+1;
  D[i]:=1;
  while i<>41 do
  begin
  D[i]:=B[i-1];
  i:=i+1;
  end;
  //////writeln answer
  Writeln('Ishod massiv');
  for i:=1 to 40 do
  begin
    Write(B[i]);
    write(tab);
  end;
  Writeln(' ');
  Writeln('bez max massiv');
  for i:=1 to 39 do
  begin
    Write(C[i]);
    write(tab);
  end;
  Writeln(' ');
  Writeln('with 1 massiv');
  for i:=1 to 41 do
  begin
    Write(D[i]);
    write(tab);
  end;
  Writeln(' ');
  Readln;
end.

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Babyuk

Дата 15.11.2006, 17:28 (ссылка)

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

Загрузка ...

Новичок

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

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

Romikgy, огромное спасибо.

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