Определить количество учеников, рост которых больше (меньше) роста ученика с номером N - Pascal

Формулировка задачи:

Рост учеников класса хранится в массиве. Определить количество учеников, рост которых больше (меньше) роста ученика с номером П. Значение П вводится с клавиатуры.

Код к задаче: «Определить количество учеников, рост которых больше (меньше) роста ученика с номером N - Pascal»

textual
const k=30;
var a:array [1..k] of integer;
i,b,m,n:integer;
begin
Randomize; b:=0; m:=0;
for i:=1 to k do
begin
a[i]:=random(81)+100;
write(a[i]:5);
end;
writeln;
readln(n);
for i:=1 to k do
if a[i]<a[n] then inc(m) else inc(b);
writeln('Количество учеников, которые ниже ученика ',n,' - ',m);
writeln('Количество учеников, которые выше ученика ',n,' - ',b);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

14   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ