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

Nguyễn Xuân Dự

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ố đó

Kiều Vũ Linh
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ự
Ly Khánh
Xem chi tiết
Hằng Trương thị thu
Xem chi tiết
Uchiha Obito
Xem chi tiết
Hoàng Long Đậu
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Hoà Trần
Xem chi tiết
Hằng Trương thị thu
Xem chi tiết