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

Python!!!

Пример:
Массив:
20 -90 15 -34 10 0
Результат:
20 15 10 -90 -34 0
Количество положительных элементов: 3

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]<=0 then

begin

an[c]:=a[i];

c:=c+1;

end;

end;

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

writeln (" ") ;

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

end.

михаил - футбол,велоспорт.

николай - теннис, волейбол.

михаил - баскетбол, плавание.

решение: так как михаил не увликаеться  велоспортом, волейболом  и тенисом значет он занимаеться плаванием. тогда получаеться что тенисист - николай и потому как он самый старший то павел будет велосипедистом из этого выходит что волейболистом будет николай.

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.