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

BA

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)

ML
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.

Bình luận (0)

Các câu hỏi tương tự
MA
Xem chi tiết
YP
Xem chi tiết
LV
Xem chi tiết
H24
Xem chi tiết
NL
Xem chi tiết
H24
Xem chi tiết
T8
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết