Question

Массив из 50 элементов от 70 до 100 Надо найти кол-во положит. и отрицат. чисел

Answer 1

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

begin
  var a:=ArrRandom(50,-70,100); a.Println;
  Writeln('Положительных: ',a.Where(t->t>0).Count);
  Writeln('Отрицательных: ',a.Where(t->t<0).Count)
end.

Пример
-62 -52 60 -36 21 -7 30 41 39 42 -47 70 8 -25 16 71 -65 -11 -36 55 -51 82 -48 -35 58 -40 -12 -27 33 -63 -63 65 58 0 39 54 -62 -22 -6 -53 -9 22 36 75 95 37 56 85 77 4
Положительных: 27
Отрицательных: 22

Answer 2

Python 3  a=0s=0for i in range(50):    k=int(input("Введите элемент массива"))    if k>0:        s+=1    if k<0:        a+=1print("Количество положительных значений: ",s)print("Количество отрицательных значений: ",a)