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

ND

nhập số nguyên dương n in ra tổng các số nguyên dương n và dãy số a1 a2...an. Hãy in ra số lớn nhất (max) của dãy số đó

KL
12 tháng 5 2023 lúc 7:59

Bài 1

Var a:array:[1..1000] of integer;

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

Write('Cac so vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

write('Tong cac so la ',s);

Readln

End.

Bình luận (0)

Các câu hỏi tương tự
LK
Xem chi tiết
HT
Xem chi tiết
UO
Xem chi tiết
HD
Xem chi tiết
HV
Xem chi tiết
HV
Xem chi tiết
MA
Xem chi tiết
HT
Xem chi tiết
HT
Xem chi tiết