Подсчитать колво цифр(чисел) не отрицательных среди 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.