В массиве из 10 случайных чисел, заполненном из интервала [-10; 20], найти количество положительных элементов; подсчитать сумму элементов, стоящих на нечетных местах; заменить элементы массива, значения которых меньше 10, числом 10. Все в одной программе. В Pascal'e

program arr;

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

p, s: integer;

begin

randomize;

p: = 0; / /число положительных элементов

s: = 0; / / сумма значений элементов с нечетными индексами

for i:integer: = 1 to 10 do / /заполнение массива и расчеты

begin

A[i]: = random (31) - 10;

write (A[i] : 4);

if A[i] > 0 then p: = p + 1;

if i mod 2 > 0 then s: = s + a[i];

end;

writeln (); writeln (); / / вывод результатов

writeln (' Сумма нечетных элементов s = ', s);

writeln (' Число положительных элементов p = ', p);

writeln ();

for i:integer: = 1 to 10 do / /замена элементов массива

begin

if A[i] < 10 then A[i]: = 10;

write (A[i] : 4)

endend.