Program nilai Max dan Min

Uses wincrt;
Type larik=array [1..10] of integer;
Var Data:Larik;
Var i,n,max,min:integer;

Begin
write('Banyak Data: ');
readln(n);

for i:=1 to n do
begin
write('Data= ');
readln(Data[i]);
end;

Max:=Data[1];

for i:=1 to n do
begin
if Data[i]>Max then
Max:= Data[i];
end;
min:=Data[1];

for i:=1to n do
begin
if Data[i] Min:=Data[i];
end;

writeln('nilai max = ',max);
writeln('nilai min = ',min);
end.