Предмет: Информатика,
автор: razerhost
Напишите программу на языке паскаль. Подсчет количества элементов больше 30
Ответы
Автор ответа:
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:
Нужно объяснить, как работает программа?
Нет, спасибо большое за ответ
Успехов!
Интересные вопросы
Предмет: Русский язык,
автор: timur20014
Предмет: Другие предметы,
автор: darinagrim
Предмет: Русский язык,
автор: Аноним
Предмет: Обществознание,
автор: милашка474
Предмет: Математика,
автор: макс7731