массив из 12 элементов от 150 до 190 ввести случайным образом с помощью random и:
1)определить есть ли хотя бы 1 ученик, рост которого больше 180 см?
2)Определить сколько учеников в классе имеют рост меньше 160 см?
это 2 разные задачи...

Спасибо огромное!!! Очень благодарна!

program n; var        m: array[1..12] of integer;        i,k: integer;beginrandomize;k:=0;for i:=1 to 12 do begin   m[i]:=random(41)+150; write(m[i],' ');    if  m[i]>180 then k:=k+1; end; writeln;if k>0 then writeln('Такой ученик есть) else writeln('Такого ученика нет');end.program n;var      m: array[1..12] of integer;       i,k: integer;beginrandomize;k:=0;for i:=1 to 12 do begin   m[i]:=random(41)+150; write(m[i],' ');   if  m[i]<160 then k:=k+1; end; writeln;if k>0 then writeln(k,'  ученик(ов/а) имеют рост меньше 160') else writeln('Учеников, рост которых меньше 160, нет');end.