В массиве случайных чисел посчитать количество положительных элементов ** языке паскаль

Question

В массиве случайных чисел посчитать количество положительных элементов на языке паскаль

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Положительных элементов- ',a.Where(x->x>0).Count)
end.

Пример
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8

Answer 2

Program array1;uses crt;var kol,i,N:integer; a:array [1..100] of integer;beginrandomize;write ('Vvedite kolichestvo elementov');read (N);kol:=0;for i:=1 to N dobegina[i]=random (100);if a[i]>0 then kol:=kol+1;end;write ('Kolichestvo elementov =,' kol);end.

Comments

мои глаза...