Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lee Jihoon

Nhập vào mảng A gồm n số nguyên (n<=1000), Viết chương trình đưa ra số lớnnhất của mảng và chỉ số của phần tử lớn nhất đó. Nếu có nhiều số có cùng giá trị lớnnhất thì đưa ra phần tử có chỉ số nhỏ nhất.Ví dụ n=7, dãy là 7 9 20 7 8 20 1Phân tử lớn nhất có giá trị là 20 và ở vị trí số 3. (vị trí số 6 cũng có giá trị 20 nhưng takhông lấy vì ta cần lấy phần tử có chỉ số nhỏ nhất).

Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 20:31

uses crt;

var a,b,c:array[1..1000]of integer;   

i,n,dem,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin     

write('A[',i,']='); readln(a[i]); 

end;

dem:=0;

max:=a[1];

for i:=1 to n do 

if max<a[i] then max:=a[i];

for i:=1 to n do 

if max=a[i] then     

begin       

inc(dem);       

b[dem]:=a[i];       

c[dem]:=i;     

end;

if dem=1 then writeln('So lon nhat la: ',b[dem],' vi tri la: ',c[dem])

else writeln('So lon nhat la: ',b[1],' vi tri la: ',c[1]);

readln;

end.


Các câu hỏi tương tự
35.Nguyễn Phương thanh
Xem chi tiết
Phạm ngọc anh
Xem chi tiết
Trần Quyên
Xem chi tiết
Nam Vũ Thị
Xem chi tiết
Phan uyển nhi
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Thư
Xem chi tiết