Помогите с массивом на Delphi

[Saka]

Такая задача:1. Дан одномерный целочисленный массив А состоящий из N элементов(0<N<20;-10000<A[i]<10000). Упорядочить массив по правилу перед элементом, который был первым в массиве разместить все большие его, а за ним все остальные, сохраняя взаимное расположение, как среди элементов, стоящих перед первым , так и среди остальных элементов.

Помогите задать условие для N и A[i]!
Язык Delphi

[Serge_Bliznykov]

уверен, что есть много вариантов решения данной задачи.
расскажу два. Какой выбрать - решайте сами...

вариант 1.
Пишем процедурку, которая помещает указанный элемент (i-й) помещает в начало массива, не меняя расположение остальных элементов:
procedure MoveElement(var M : TMyArray; i : integer);

дальше всё просто. Запоминаем величину первого элемента и перебирая остальные элементы в цикле сравниваем:

FirstElement := A[1];
for k:=2 to N do
  if a[k]>FirstElement then MoveElement(a, k);

всё. задача решена.


вариант 2.
создаём новый массив, сначала записываем в него элементы больше первого. потом первый элемент.
потом ещё один проход по циклу и копируем все элементы, которые меньше/равны первому элементу.
всё. задача решена.

[Saka]

спасибо за варианты но у меня не получается написать условия для N и для A[i]. сам код у мя получился

[Serge_Bliznykov]

эти условия банально объсняют Вам какой нужно объявить массив и какого типа элементы массива:

A : array[1..19] of Integer;

всё!

[Saka]

а такие уловия для N подходят и для randomize?
а на A[i] какие поставить условия?

[Serge_Bliznykov]

ага. для рандомайза надо немножко посчитать на пальцах.
случайное число в диапазоне [-10000..10000]
можно получить так:

  Randomize;
  N := 19;
  for i:=1 to N do
     A[i] := Random(20001) - 10000;

20001 - это столько целых чисел в диапазоне [-10000..10000] (учитывая ноль)

p.s. в принципе N тоже можно получать случайным образом:

N := 1+Random(19);

[Saka]

а это можно записать как-нибудь через ''If''?

[Serge_Bliznykov]

а это можно записать как-нибудь через ''If''?

Если я правильно Вас понял (в чём я НЕ УВЕРЕН!) — то нет, нельзя!

И, похоже, здесь, на форуме, Ваш вопрос тоже не поняли...
Попытайтесь здесь в теме его (вопрос) раскрыть, что Вас не устраивает, для чего тут может понадобится условный оператор IF, какое условие надо проверять и т.д.
мне кажется, что Вы просто морочите себе голову...

p.s. Кстати, хотелось бы посмотреть на код решения задачи. Если у Вас описание/иницилизация типов данных вызвало такие вопросы, то что же там в коде решения?!!!

[Saka]

теперь все понятно, просто тут ввели в заблуждение, что через оператор условия можно сделать. А я не был на 100% уверен и потому спросил