В массиве из 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;  Writelnend.Тестовое решение:Элементы массива  10  11  -4  11  12  13  -1  -2  -8   7Количество положительных элементов: 6Сумма элементов на нечетных местах: 9Элементы массива после замены  10  11  10  11  12  13  10  10  10  10