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

Question

Информатика

Евтихий

25 октября, 20:19

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

+2

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