Одномерные массивы целых чисел. Алгоритмизация и программирование

числами из промежутка от 10 до 50.
program  z_1;
Var i, min: integer;
a: array[1...15] of integer;
Begin
randomize;
for i:=1 to 15 do a[i]:=random(40)+10;
for i:=1 to 15 do write (a[i],' ');
min := a[1];
for i := 2 to 15 do
if a[i] < min then
min := a[i];
writeln(min)
End.

массива, заполненных случайными числами от -10 до 10. В массиве 8 элементов.
program  z_2;
Var i, k, s: integer;
a: array[1..8] of integer;
Begin
randomize;
for i:=1 to 8 do a[i]:=random(20)-10;
for i:=1 to 8 do write (a[i],' ');
k :=0;
s :=0;
for i := 1 to 8 do
if a[i] > 0 then
begin
k := k+1;
s := s+a[i]
end;
writeln('Количество положительных элементов', k);
writeln('Сумма положительных элементов',s)
End.

массива кратных четырем. Массив заполнен 12 случайными целыми числами из диапазона от 0 до 40.
Слова для справки: mod – получение целого остатка деления.
Например, k: = 7 mod 2. Результат: k=1.
…
k :=0;
s :=0;
for i := 1 to 10 do
if a[i] mod 4 = 0 then
begin
k := k+1;
s := s+a[i]
end;
…