Определить количество чисел больших 0 среди: а1, а2 ... а10 (паскаль)

Question

Информатика

Филарет

2 апреля, 17:19

Определить количество чисел больших 0 среди: а1, а2 ... а10 (паскаль)

+4

Ответы (1)

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

Сарра · Answer 1

Const n=10;

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

k, i:integer;

begin

writeln ('vvedite massiv') ;

for i: = 1 to n do

readln (a[i]) ;

k:=0;

for i : = 1 to n do

if a[i]>0 then

inc (k) ;

writeln ('kolicestwo = ', k) ;

readln;

end.