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

TT

viết chương trình nhập vào 1 dãy số A có N số nguyên (N<=100), rồi in ra màn hình giá trị lớn nhất của dãy số đó pascal

Giúp với ạ <3

H24
28 tháng 4 2019 lúc 8:44

program sln;

var i,n,SLN:integer;

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

begin

write('nhap n='); readln(n);

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 nhat la:',SLN);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
UO
Xem chi tiết
TM
Xem chi tiết
HN
Xem chi tiết
PL
Xem chi tiết
NQ
Xem chi tiết
CT
Xem chi tiết
LD
Xem chi tiết
JJ
Xem chi tiết
AS
Xem chi tiết
UO
Xem chi tiết