const
MaxData =
100;
var
data :
array[1..MaxData] of real;
N :
byte;
i :
byte;
max :
real;
min :
real;
begin
write('Masukkan jumlah data : ');
readln
(N);
for i :=
1 to N do
begin
write('Data ke- ',i,': ');
readln
(data[i]);
end;
max
:=data[1];
min :=
data[1];
for i :=
2 to N do
begin
if
(data[i] < min) then
min :=
data[i];
if
(data[i] > max) then
max :=
data[i];
end;
writeln('Data terkecil : ', min:1:3);
writeln('Data terbesar : ', max:1:3);
readln
end.
