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

Все числа в массиве будут целые. Создадим массив целых чисел от - 12 до 12:

var a : array [1 ... 10] of integer;

Еще нам нужно будет создать переменную, в которую мы запишем количество нужных по условию задачи элементов. Оно тоже будет целым:

col-vo : integer;

for i:integer≔1 to 10 do

a[i] ≔ random (24) - 12;

Максимальное число, которое может создать этот random равно 24. Отнимая от него 12, мы будем получать 12.

Минимальное число, которое может создать этот random равно 0. Отнимая от него 12, мы будем получать - 12.

for i:integer≔1 to 10 do

if (a[i] > 0) then

begin

col-vo ≔ col-vo + 1;

write (a[i]:5);

end;

writeln ();

write ('Всего положительных ', col-vo);