Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2014, 22:05   #1
grooveone
Пользователь
 
Регистрация: 03.12.2013
Сообщений: 11
Вопрос Задача с массивами

В произвольном массиве A,состоящем из 60 целых чисел,принадлежащих промежутку [-50;50],найти в первой половине массива наибольший,а во второй половине-наименьший элемент и поменять их местами.
Прошу помощи добрые люди)
grooveone вне форума Ответить с цитированием
Старый 12.02.2014, 22:19   #2
009
Пользователь
 
Регистрация: 09.02.2014
Сообщений: 33
По умолчанию

Код:
var
  a: array [1..60]  of integer;
  i,i_min,i_max,t:integer;
begin
writeln('Исходный массив');
for i:=1 to 60 do begin
    a[i]:=random(101)-50;// 
    write(a[i],' ');
  end;
writeln;
i_max:=1;
for i:=2 to 30 do
  if a[i_max]<a[i] then
    i_max:=i;
i_min:=31;
for i:=32 to 60 do
  if a[i_min]>a[i] then
    i_min:=i;
t:=a[i_min]; a[i_min]:=a[i_max]; a[i_max]:=t;
writeln('Полученный массив');
for i:=1 to 60 do
    write(a[i],' ');  
writeln;
end.
009 вне форума Ответить с цитированием
Старый 12.02.2014, 22:21   #3
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Алгоритм:
будем считать, что индекс наибольшего элемента - 1
цикл от 2 до 30 - если рассматриваемый элемент больше лежащего по индексу наибольшего, то заменяем хранимый индекс на новый
индекс наименьшего - 31
в цикле от 32 до 60 делаем то же сравнение
осталось поменять элементы местами (индексы известны)

Что не получается?

UPD
Опоздал. Пора развивать навыки быстрого набора текста
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 12.02.2014, 22:23   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
grooveone
Покажешь как массив вводишь?
I'm learning to live...

Последний раз редактировалось Stilet; 12.02.2014 в 22:25.
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача с массивами VvVZzZVvV Паскаль, Turbo Pascal, PascalABC.NET 0 29.05.2013 16:19
задача с массивами на С++ Мирэхико Помощь студентам 0 02.04.2013 21:59
Задача с массивами на Си glebast Помощь студентам 3 01.10.2012 12:22
Задача с массивами Koreps Паскаль, Turbo Pascal, PascalABC.NET 3 28.03.2012 03:55
Задача с массивами my_blood_is_blue Помощь студентам 6 29.12.2011 00:08