Var SN: array [1..50] of Integer;
Readln (n);
BEGIN
Write ('Nhap so so nguyen:'); Readln (n)
For i:=1 to n do
Begin
Write ('So nguyen thu', i,' :');
Readln ( SN [i]);
End;
Write ('Day so:');
for i:=1 to n do write ( a [i]; ' ');
min:= SN [1]; vt:=1;
for i:= 2 to n do
begin
If min > SN [i] then min:= SN [i];
Write (' so be nhat:', min:= [i]);
vt:= i;
If max < SN [i] then max:= SN [i];
Write (' so lon nhat:', max:= [i]);
vt:= i;
end.
~ Nếu thấy đúng cho mình 5* + ctlhn + cảm ơn nha. Chúc bạn học tốt ~
