Bài 9. Làm việc với dãy số

Nguyễn Phạm Phương Hạnh

viết chương trình tìm phần tử nhỏ nhất và lớn nhất của dãy n số nhập vào từ bàn phím

Trần Quốc An
3 tháng 5 2018 lúc 20:22

Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln;
End.

Bình luận (1)
Khánh Huy
11 tháng 5 2018 lúc 18:24
https://i.imgur.com/5SIfK0v.png
Bình luận (0)

Các câu hỏi tương tự
Nguyễn Ngọc
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết
Thư ĐT
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Minh Đạt
Xem chi tiết
Trần Minh Trí
Xem chi tiết
MinhAnh Vũ
Xem chi tiết
Tuoi tom May
Xem chi tiết
ℍ𝕠̣𝕔 𝔻𝕠̂́𝕥
Xem chi tiết