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

pascalABC

var

a: array of integer;

i, j, n, k: integer;

begin

Write('Введите размер массива: '); ReadLn(n);

SetLength(a, n);

Randomize();

for i := 0 to n - 1 do begin

a[i] := random(201) - 100;

if a[i] > 0 then inc(k);

end;

for i := 0 to n - 2 do begin

if a[i] > 0 then continue;

for j := i + 1 to n - 1 do begin

if a[j] > 0 then begin

swap(a[i], a[j]); //перестановка элементов местами

break;

end;

end;

end;

for i := 0 to n - 1 do Write(a[i], ', '); WriteLn;

WriteLn('В массиве ', k, ' положительных элементов. ');

end.