Рост каждого из N учеников хранится в сантиметрах в массиве. Найдите количество учеников,...

Question

Рост каждого из N учеников хранится в сантиметрах в массиве. Найдите количество учеников, рост которых меньше M сантиметров
Помогите ребят)

Comments

Паскаль?

---

Да

Answer 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.