Составьте программу,которая наполняет массив а[1..10] случайными целыми числами в спектре от

Все числа в массиве будут целые. Сделаем массив целых чисел от 12 до 12:
var a : array [1..10] of integer;
Еще нам необходимо будет сделать переменную, в которую мы запишем количество подходящих по условию задачки элементов. Оно тоже будет целым:
col-vo : integer;
for i:integer1 to 10 do
a[i] random(24) - 12;
Наибольшее число, которое может сделать этот random равно 24. Отнимая от него 12, мы будем получать 12.
Малое число, которое может сделать этот random одинаково 0. Отнимая от него 12, мы будем получать -12.
for i:integer1 to 10 do
if (a[i] gt; 0) then
begin
col-vo col-vo + 1;
write (a[i]:5);
end;
writeln();
write (Всего положительных , col-vo);