Question

известно колличество жителей которые проживают в каждом из n районов города. Составить программу для нахождения колличества районов в котором проживает не больше чем 70000 жителей.

Answer 1

var
i,n,k,a:integer;
begin
writeln('введите кол-во районов');
readln(n);
writeln('введите кол-во жителей для каждого района');
for i:=1 to n do begin
readln(a);
if a<70000 then
k:=k+1;
end;
writeln('кол-во районов,в которых проживает не больше 70000 жителей=',k)
end.