Дан массив D(24) со случайными числами от -15 до 42

Нужно:

1) Поменять все 5 этого массива на 1.

2) Поменять местами 4 и 6 элементы массива.

3) Найти сколько 5 в массиве и подсчитать их сумму.

4) Найти максимальное число массива.

В FAQ'е есть все что надо

В чем проблемы? В одном цикле пройдите масив, проверяя каждый элемент по каждому из условий. Пункт 2 выполняйте сначала:

D[4]:=D[4]+D[6];
D[6]:=D[4]-D[6];
D[4]:=D[4]-D[6];

Вводьте дополнительные переменные Max, fiveQuantity для поиска макс. элемента и количества 5, и проверяйте в цикле:

if D[i]>Max then Max:=D[i];
if D[i]=5 then
   begin
      D[i]:=1;
      Inc(fiveQuantity)
   end;

Не забудьте прежде присвоить переменной Max значение первого элемента.
Сумму пятерок выводим умножением fiveQuantity на 5 в процедуре вывода.

Если понадобится, элементы массива генерируем в цикле таким образом:

D[i]:=random(58)-15;

Процедура randomize пишется опционально.

В программу соберете сами?