Посчитать количество положительных элементов массива из 10 чисел

Question

Информатика

Фемистокл

7 января, 21:38

Посчитать количество положительных элементов массива из 10 чисел

+2

Ответы (1)

Знаете ответ на вопрос?

Мокей · Answer 1

Program qq;

uses CRT;

const N=10;

var a:array[1 ... N] of integer;

i, sum:integer;

begin

for i:=1 to N do

begin

write ('a[', i,']=') ;

read (a[i]) ;

end;

sum:=0;

for i:=1 to N do

if a[i]>=0 then

sum:=sum+1;

writeln ('Количество положительных элементов в массиве равно', sum) ;

end.