Подсчитать колво цифр (чисел) не отрицательных среди N-произвольных и вывести на экран

Question

Информатика

Лидя

14 января, 07:38

Подсчитать колво цифр (чисел) не отрицательных среди N-произвольных и вывести на экран

+2

Ответы (1)

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

Гала · Answer 1

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

i, n, k:integer;

begin

k:=1;

read (n) ; / / Вводите количество самих элементов

for i:=1 to n do begin//Ввод самих элементов

read (a[i]) ; if a[i]>=0 then k:=k+1; //Подсчет элементов >0

end;

writeln ('Количество не отрицательных элементов=', k) ; / / Вывод

readln;

end.