Đề bài: Nhập vào một dãy số nguyên A gồm N phần tử (N \(\le\) 1000). Hãy tìm số lớn nhất, số bé nhất và các chỉ số đâu tiên của chúng.
Yêu cầu:
Input: Dòng 1 là số N. Dòng 2 là dãy số nguyên A.
Output: Dòng 1 là số lớn nhất và chỉ số đầu tiên của nó. Dòng 2 là số bé nhất và chỉ số đầu tiên của nó.
Ví dụ:
| Input | Output |
|
5 14 15 18 17 18 |
18 3 14 1 |
Giải thích: Trong dãy số trên, số lớn nhất là 18 và số bé nhất là 14. Có 2 ô chứa số 18 là ô có chỉ số 3 và ô có chỉ số 5 nên ta chỉ chọn chỉ số 3. Có 2 ô chứa số 14 là ô có chỉ số 1 nên ta chỉ chọn chỉ số 1. Ta có kết quả như ở Output.
Mọi người có thể thêm lời dẫn như 'Nhap so N: ' cho bài làm sinh động hơn. Phần Input & Output ở Ví dụ chỉ xét tới các giá trị cần xử lí thôi nên không cho các lời dẫn được.
Program HOC24;
var i,n,vt1,vt2,max,min: integer;
a: array[1..1000] of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln;
max:=0; min:=32000;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
vt1:=i;
end;
if a[i]<min then
begin
min:=a[i];
vt2:=i;
end;
end;
writeln(max,' ',vt1);
write(min,' ',vt2);
readln
end.