Массивы. Паскаль

[Данелия]

Массивы. Паскаль

Помогите решить !!!
1. Одномерный массив А длиной N<=40 заполнить случайными числами из диапазона [–20..50]. Составить программу:
• определить последний положительный элемент массива кратный 3-м;
• заменить максимальный по модулю отрицательный элемент нулем;
• найти все индексы отрицательных элементов массива.
2. Дан одномерный массив. Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо.

 

[AlexZir]

заполнение массива случайными числами из диапазона:

for i:=1 to n do
a[i]:=random(71)-20;

Условие, чтобы определить последний положительный элемент массива кратный 3-м

if (a[i]>0) and (a[i] mod 3=0) then ...

найти все индексы отрицательных элементов массива.

if a[i]<0 then writeln(i);

заменить максимальный по модулю отрицательный элемент нулем;

max:=0;
.....
if (a[i]<0) and (abs(a[i])>max) then max:=abs(a[i]);

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

2. Дан одномерный массив. Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо.

алгоритм простой сортировки, в сети тьма тьмущая примеров реализации.