Заполните массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули-в конце. Вычислите количество положительных элементов.

var i,c:integer;an:array[1..10] of integer,a:array[1..10] of integer;beginrandomize;for i:=1 to 10 do a[i]:=random(100)-100;for i:=1 to 10 do if a[i]>0 then beginan[i]:=a[i];c:=c+1;end;writeln("Кол-во положительных элементов: ",c);for i:=1 to 10 do beginif a[i]<=0 then beginan[c]:=a[i];c:=c+1;end;end;writeln("Получившийся массив:");writeln(" ");for i:=1 to 10 do write(an[i]," ");end.