Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
95
53
Program lon_nho;
Uses crt;
Var n,i,max,minh:integer;
a:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap n:');
Readln(n);
For i:=1 to n do
Begin
Write('Nhap pt thu a[',i,']');
Readln(a[i]);
End;
Max:=1;
For i:=2 to n do
If max<a[i] then
Begin
Max:=a[i];
Wrtieln('Phan tu lon nhat la:',max);
End;
Min :=2;
For i:=1 to n do
If min>a[i] then
Begin
Min:=a[i];
Wrtieln('Phan tu nho nhat la:',min);
End;
Readln;
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin