Ответы на вопрос:
var n, k, i, a:Integer;
begin
readln(n);
for i := 1 to n do
begin
readln(a);
if a > 30 then
begin
k:=k+1;
end;
end;
writeln(k);
end.
Популярно: Информатика
-
elag06.03.2023 05:19
-
salsavip33304.03.2020 04:24
-
marinazajcik006.02.2021 01:33
-
ayaulym1011.01.2021 16:57
-
zagena0920.11.2021 23:14
-
almas0530.09.2022 14:03
-
Vov111114.09.2021 12:46
-
victorastrakhan125.09.2020 21:09
-
schvarzengold10029.10.2020 04:00
-
fidawa2006ozpk8u11.03.2021 19:47