Подсчитать колво цифр(чисел) не отрицательных среди N-произвольных и вывести на экран
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
