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

Const   n=10; var   a: array[1..n] of integer;   i,kp,sn: integer; begin   randomize;   writeln('элементы массива');   kp: =0; sn: =0;   for i: =1 to n do   begin       a[i]: = random(31)-10;       write(a[i]: 4);       if a[i]> 0 then inc(kp);       if (i mod 2)< > 0 then sn: =sn+a[i]   end;   writeln;   writeln('количество положительных элементов: ',kp);   writeln('сумма элементов на нечетных местах: ',sn);   writeln('элементы массива после замены');   for i: =1 to n do   begin       if a[i]< 10 then a[i]: =10;       write(a[i]: 4)   end;   writeln end. тестовое решение: элементы массива   10  11  -4  11  12  13  -1  -2  -8    7 количество положительных элементов: 6 сумма элементов на нечетных местах: 9 элементы массива после замены   10  11  10  11  12  13  10  10  10  10

X*40*64*16=110*1024*8; x*40=110*8; x*5=110; x=110/5=22; ответ: 22 страницы.