Список предметов

Математика
Литература
Алгебра
Русский язык
Геометрия
Английский язык
Химия
Физика
Биология
Другие предметы
История
Обществознание
География
Українська література
Українська мова
Казак тили
Беларуская мова
Информатика
Экономика
Право
Рост каждого из N учеников хранится в сантиметрах в массиве. Найдите количество учеников, рост которых меньше M сантиметров
Помогите ребят)
спросил от в категории Информатика

1 Ответ

Const N = 10;
const M = 179;
var
mas:array [1..N] of integer;
count,i:integer;
begin
writeln(Введите рост учеников);
for i:=1 to N do
read(mas[i]);
for i:=1 to N do
if mas[i]count:=count+1;
writeln(Число учеников,чей рост меньше +M+ равен +count);
end.
ответил от
x
...