пожайста с номерами ПОЖАЙСТА

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandom(20,-99,99); mas.Println;

  var a:=mas[0:10]; var b:=mas[10:20]; 

   Writeln('количество положительных элементов=',a.Where(t->t>0).Count);

    Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);

end.
это как учат в школе :->

var 

i,k,l:integer;

mas:Array[1..20] of integer;

begin

randomize;

for i:=1 to 20 do

mas[i]:=random(-99,99);

for  i:=1 to 10 do

if mas[i]>0 then

k:=k+1;

for  i:=11 to 20 do

if mas[i]>0 then

l:=l+1;

Writeln('количество положительных элементов=',k);

    Writeln('количество отрицательных элементов=',l);

    end.

Ппц заданий сложный как у тарчка

1. Конвертировать число во float не постандарту IEEE-754

-53.45 (10) = -110101.01110011001 (2)
экспоненциальная запись = -1.1010101110011001 * 10^5
мантисса = -1.1010101110011001
порядок ^5 (10) = 101 (2)
дробная мантисса = 1010101110011001
дробный порядок = 101 + 1111 = 10100
знак минус = 1

ответ:
1 10100 10101011100110010000000000

2. Конвертировать из float не постандарту IEEE-754

исходное 0 100001 1010011010000000000000000
знак = 0
порядок = 100001 - 11111 = 10 = 2 (10)
мантисса = 1.101001101

110.1001101 (2) = 6.6015625 (10) корочи пребризительная 6.6

ответ  6.6015625

всё приблизительно за меня потомучта делал конвертер в местах перевод из 10 в двоичную и наборот а далши я сам поэтому пиши преблезительна