решение задач в делфи 7

[Sketch_45]

Задача 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,20]. 1)Найти сумму элементов, имеющих нечетные индексы.2) Подсчитать количество элементов массива, значения которых больше заданного числа А и кратных 5.3) Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.
Задача 2. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [35,75].1)Вставить число К1 после всех элементов, больших заданного числа К, а число К2 – перед всеми элементами, кратными трем. 2) Перенести первые К элементов в конце.
Спасибо большое кто поможет

[Stilet]

Дан массив целых чисел из n элементов

Ану показывай как ты массив заполняешь )

[Sketch_45]

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

Ану показывай как ты массив заполняешь )

Вот пожалуйста

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
begin
n:=strtoint (edit1.text);
edit2.Text:='';
for i:=0 to n-1 do
begin
a[i]:=random (31)-10;
edit2.text:=edit2.Text+' '+inttostr(a[i]);
end;

end;

[Sketch_45]

Все решил задачи кому интересно могу в личку скинуть решение

[nrj102]

Приветствую, не могли бы вы скинуть в личку код программы по заданию "Вставить число К1 после всех элементов, больших заданного числа К, а число К2 – перед всеми элементами, кратными трем." Очень необходимо, заранее спасибо