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

Question

Информатика

Олюля

1 июня, 18:49

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

+3

Ответы (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.