Инвестиции, при которых иностранный инвестор не участвует активно в управлении предприятием, довольствуясь получением дивидендов

Program Mas;
Var A:array [1..240] of integer;
I,x:integer;
Begin
For I:=1 to 240 do
A[I]:=Random(1000);
For I:=1 to 240 do
If A[I]>x Then x:=A[I];
WriteLn ('',x);
End.

 Random(1000) - это интервал
то есть у вас будут задаваться числа от 0 до 999
можете сами задать интревал, который вам нужен