Ответы
Ответ дал:
1
Ответ:
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.
denismikhailov:
Нужно объяснить, как работает программа?
Нет, спасибо большое за ответ
Успехов!
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад