С заполнить массив случайным числами в интервале [-100, 100] и перестать элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули - в конце. вычислите количество положительных элементов.пример:массив: 20 -90 15 -35 10 0результат: 20 15 10 -90 -35 0количество положительных: 3.P.s. предложите хотя бы алгоритм как переставлять элементы, всю программу можете не писать​

Цикл foruses Math;var    i: integer;    sum: real;begin    for i := 1 to 100 do        Sum := Sum + Sqr(i);    Writeln(Sum);end.Цикл while (предусловие)uses Math;var    i: integer;    sum: real;begin    while i <= 100 do        begin            Sum := Sum + Sqr(i);            i := i + 1;        end;    Writeln(Sum);end.Цикл repeat..until (постусловие)uses Math;var    i: integer;    sum: real;begin    repeat        i := i + 1;        Sum := Sum + Sqr(i);    until i >= 100;    Writeln(Sum);end.