Const n=7;
Var min, i:integer ;
A :array [1..200]of Integer ;
Begin
For i:=1 to N do begin
A[i]:=random(51)+150;
Writeln(' Рост', 'i', ': ', a[i]);
End;
Min:=a[1];
For i:=1 to n do begin
If(a[i]<min) then min:=a[i];
End;
Writeln (' Рост самого низкого: ', min) ;
End.
