Программа требует ручного ввода 10 числ
var a: array [1..10] of integer;
i , k: integer;
begin
for i:=1 to 10 do
readln(a[i]);
k:=0;
for i:=1 to 10 do
if a[i] div 10 =0
then k:=k+1;
writeln(k);
end.
Такой элемент, как в вопросе, называется Линейка.


Название: Информатика и ИКТ, рабочие тетради 2-4 классы
Номер: Н.В. Матвеева, Е.Н. Челак, Н.К. Конопатова, Л.П. Панкратова, Н.А. Нурова
Год: 2010-2012
Жанр: рабочие тетради
Формат: DjVu
Страниц: от 58 до 114
Описание:
Рабочие тетради для 2-4 классов (каждый класс в 2-х частях) входят в состав УМК по информатике и ИКТ для начальной школы (2-4).
УМК обеспечивают пропедевтическое обучение информатике, цель которого - сформировать представление учащихся об основных понятиях информатики на основе их личного опыта и знаний, полученных при изучении других школьных дисциплин, а также развить начальные навыки работы на персональном компьютере.