Lập trình đơn giản

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

Viết chương trình chạy: Tìm số lớn nhất trong dãy số A= \(a_1+a_2+a_3+...+a_n\) (n ≥ 1)

Minh Lệ
12 tháng 3 2019 lúc 19:17

Lời giải :

program hotrotinhoc ;

var a,n,i,SLN : integer ;

A: array[1..100] of integer ;

Begin

write('Nhap gia tri cua n='); readln(n);

writeln('nhap cac phan tu cua day so');

for i:=1 to n do

begin

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

end ;

SLN:=a[1];

for i:=2 to n do

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

write('So lon nhap trong day so la',SLN);

readln

end.


Các câu hỏi tương tự
minh ánh
Xem chi tiết
Yến Phạm
Xem chi tiết
Lê Triệu Vy
Xem chi tiết
haizzz!!
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Gallavich
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Dienn
Xem chi tiết
phamthiminhanh
Xem chi tiết