Массив из 12 элементов от 150 до 190 ввести случайным образом с помощью random и:

1) определить есть ли хотя бы 1 ученик, рост которого больше 180 см?

2) Определить сколько учеников в классе имеют рост меньше 160 см?

это 2 разные задачи ...

Program n;

var

m: array[1 ... 12] of integer;

i, k: integer;

begin

randomize;

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;

begin

randomize;

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.