Question

Дан массив из n элементов. Подсчитать в нем количество положительных элементов.Очень срочно!

Answer 1

//PascalABC.NET v3.3 1633

const n = 15;

var arr: array [1..n] of integer;

begin

for var i:=1 to n do

 arr[i]:=random(-5,5);

write('Исходный массив: ');

arr.PrintLn(', ');

var count:=0;

for var i:=1 to n do

 if arr[i] > 0 then

   count += 1;

writeln('Количество положительных элементов: '+count);

end.