Название устройства оусущ. Связь меж компьютерами
4758 р от от. л. ллллл о. тл тл от. оооо. оои. о.
Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
<span>end.
Пример входных данных
3
179 180 194<span>
Выходные данные
2</span></span>
Чтобы быть вкурсе всего того что происходит вокруг тебя , в любых точках мира и тд