Quảng cáo
1 câu trả lời 157
program TimGTLN;
var
A: array[1..100] of integer;
n, i, max, vitri: integer;
begin
// Nhập dãy A từ bàn phím
writeln('Nhap so phan tu cua day A (n < 100): ');
readln(n);
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(A[i]);
end;
// Tìm giá trị lớn nhất và vị trí của phần tử đó
max := A[1];
vitri := 1;
for i := 2 to n do
begin
if A[i] > max then
begin
max := A[i];
vitri := i;
end;
end;
// In ra kết quả
writeln('Gia tri *** nhat cua day la: ', max);
writeln('Phan tu thu ', vitri, ' co gia tri la: ', max);
readln;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55552 -
Đã trả lời bởi chuyên gia
31498
-
30035
-
۶ৎ
200 điểm
-
Yen Le 20 điểm
-
Trần Thị Bông Hồng 20 điểm
-
nhi vo 20 điểm
-
강아지들
20 điểm
-
Tuan Ngoc 20 điểm
-
$\color{blue}{\mathcal{ NoName}}$
20 điểm
-
Gia Ý Lê Hoàng 20 điểm
-
Vinh Thế 20 điểm
-
Nguyễn Văn Tuấn 20 điểm
-
Phuong Tran 20 điểm
-
Phúc Bùi 20 điểm
-
huy Nguyễn 20 điểm
-
ngà kim 20 điểm
-
Nguyễn Hội 20 điểm
Rút gọn
