Составить программу заполняя масива из 100 чисел случаиними значениями -20 до 20 . Почитать количество отрецательних и положительних чисел . помогитеееееееееееееееееееееее

спс но мне паскал надо пишите пожалуста паскале

а это не паскаль? о_0

Это ABC.net

Главное, что эта прога на Турбо Паскале пойдёт, а значит и на любом другом

Var A:array[1..100] of integer;i,Ko,Kp:integer;BeginKo:=0;Kp:=0;Write('Исходный массив: ');For i:= 1 to 100 do    Begin    A[i]:=random(41)-20;    Write(A[i],' ');    if A[i]<0 then Ko:=Ko+1    else if A[i]>0 then Kp:=Kp+1;    End;WriteLn;WriteLn('Количество отрицательных: ',Ko);WriteLn('Количество положительных: ',Kp);End.