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

Question

Заполнить массив случайными числами в интервале [-100,100] и переставить элементы так, чтобы все положительные элементы стояли в начала массива, а все отрицательные и нули – в конце. Вычислите количество положительных элементов. Python!!! Пример: Массив: 20 -90 15 -34 10 0 Результат: 20 15 10 -90 -34 0 Количество положительных элементов: 3

Answer 1

Var i, c:integer;an:array[1 ... 10] of integer, a:array[1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do a[i]: = random (100) - 100;

for i:=1 to 10 do

if a[i]>0 then

begin

an[i]:=a[i];

c:=c+1;

end;

writeln ("Кол-во положительных элементов: ", c) ;

for i:=1 to 10 do

begin

if a[i]

begin

an[c]:=a[i];

c:=c+1;

end;

end;

writeln ("Получившийся массив:") ;

writeln (" ") ;

for i:=1 to 10 do write (an[i]," ") ;

end.

Comments

На питоне написано же...