Viết chương trình nhập vào mảng A gồm n phần tử (n ≤ 100) số nguyên. Tìm giá trị lớn nhất trong dãy và in ra màn hình kết quả?
Quảng cáo
1 câu trả lời 1571
3 năm trước
program Min;
uses crt;
var A:array[1..100] of longint;
i,n,max:longint;
begin
clrscr;
write('Nhap n (n<=100): '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if max<A[i] then max:=A[i];
write('Phan tu lon nhat la: ',max);
readln
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!