Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program Sr;
 var a,m,c:integer;
  massiv:array [1..10] of integer;
   begin;
   a:=0;
   writeln (введи искомый рост);
   read (m);
   randomize;
    for c:=1 to 10 do
    begin;
     massiv[c]:=random(100,200);
    end;
     begin;
      for c:=1 to 10 do
      if massiv[c]>m then
      a:=a+1;
     end;
    writeln (a,Учеников выше,m,см);
   end.