
Вот что есть:
unit Denis;
Interface
Procedure Info;
Function FindMin...
Implementation
Uses CRT;
const max=10;
type
Masiv=array[1..max]of integer;
function FindMin(mas:Masiv):integer;
var
min,i,n:integer;
begin
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
Result:=min
end;
end.
И
uses
Denis;
var
a:Masiv;
i,s,n:integer;
begin
for i:=1 to max do
a[i]:=random(300)-150;
writeln('Min el v massive raven:',FindMin(a));
end.