Delphi - операции с массивом

[Sianessa]

Нужно решить 2 задачи:

1) Ввести одномерный массив. Определить элементы массива, разность модулей которых имеет наибольшее значение.
Вывести эти элементы и саму их разность.

2)Ввести одномерный массив. Определить значение, которое встречается среди элементов массива максимальное число раз, и вычислить
количества вхождений. Вывести само значение и количество его вхождений.

Нужно срочно!
Я даже алгоритм решения смутно представляю... Помогите!

[Sazary]

1)
Будет 2 вложенных цикла.

for i:=1 to N-1 do
 for j:=i+1 to N do
  .....

Ищете разность модулей i-ого и j-ого элемента. Если она меньше минимума, то запоминаете индексы и приравниваете минимум к этой разности.

2)
Как вариант, сортируете массив.
Потом идете по нему

for i:=2 to N do

если текущий элемент равен предыдущему, то увеличиваете счетчик. Если не равен, то сравниваете счетчик с максимальным количеством. Если счетчик больше - запоминаете и его и само значение.

[Sianessa]

Оййй... А вы не могли бы попонятнее объяснить? Какой элемент j-й а какой i-й ?
И ко второй задаче как-то вообще не поняла комментарий..

[Sazary]

А вы не могли бы попонятнее объяснить? Какой элемент j-й а какой i-й ?

Ну вам же надо сравнивать пары чисел. Так?
Во внешнем цикле перебираем "первые" элементы, а во внутреннем - "вторые".
Вообще, не очень понял вопрос. Вы лучше начните делать, и по ходу спрашивайте.

И ко второй задаче как-то вообще не поняла комментарий..

Ну есть у нас, допустим, массив:

1 5 6 6 5 7 8 2 1 7 5

сортируем его. Получаем это:

1 1 2 5 5 5 6 6 7 7 8

И сразу видно, чего у нас и сколько.
Теперь идем слева направо и считаем одинаковые элементы. То есть сравниваем текущий элемент с предыдущим. Если текущий элемент не равен предыдущему, то мы перешли к новому элементу. И счетчик нужно обнулить.

[Chudo4258]

1

imax:=1;
jmax:=2;
max:=abs(A[i])-abs(A[j]);
for i:=1 to N-1 do
 for j:=i+1 to N do
  if abs(A[i])-abs(A[j])>max then begin 
                                                max:=abs(A[i])-abs(A[j]);
                                                imax:=i;
                                                jmax:=j;
                                              end;
writeln('|A[',imax,']|-|A[',jmax,']| = ',max);

[MAKEDON]

Сообщение от Sianessa

Нужно решить 2 задачи:
1) Ввести одномерный массив. Определить элементы массива, разность модулей которых имеет наибольшее значение.
Вывести эти элементы и саму их разность.

А не проще тут найти самое маленькое по модулю число. Потом самое большое по модулю число? И найти их разность. По идее получиться верно.

Сообщение от Sianessa

2)Ввести одномерный массив. Определить значение, которое встречается среди элементов массива максимальное число раз, и вычислить
количества вхождений. Вывести само значение и количество его вхождений.

Т.к. не пишу давно на делфи, уже плохо помню синтаксис этого языка. Но могу сказать алгоритм. Или даже написать, но на си. Переделать не сложно. Если надо пишите в личку.

[Sazary]

Сообщение от MAKEDON

А не проще тут найти самое маленькое по модулю число. Потом самое большое по модулю число? И найти их разность. По идее получиться верно.

Ну можно и так ) Я предложил первое, что пришло в голову.

[Sianessa]

Chudo4258, спасибо)
MAKEDON, скинула в личку...