Question

[Nam Phùng Văn Hoài]

Đề 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.

Answer 1

[Minh Lệ]

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.