Дан массив A из 20 элементов ... найти количество положительных элементов массива. результат вывести на печать ...

Question

Информатика

Вира

18 апреля, 04:00

Дан массив A из 20 элементов ... найти количество положительных элементов массива. результат вывести на печать ...

+4

Ответы (1)

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

Артемида · Answer 1

Program p1;

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

var n, i, c: integer;

begin

readln (i) ;

c : = 0;

for n : = 1 to i do

begin

readln (a[i]) ;

if a[i] > 0 then c : = c + 1;

end;

writeln (c) ;

end.