Lab5_4C

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
program Lab5_4C;
var x, a, min: integer;
begin
randomize;
min := 0;
a := 1;
while a < 5 do begin
x := random (200)-100;
writeln(x);
if x < min then begin
min := x
end;
a := a + 1;
end;
writeln;
writeln(min);
end.