Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lưu Thị Thu Trang

Viết chương trình nhập vào mảng số nguyên hiện ra màn hình.Tính tổng các phần tử và hiện tổng đó ra màn hình. Giúp em với ạ

Kiều Vũ Linh
7 tháng 3 2023 lúc 9:09

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

i,n:integer;

s:longint;

Begin

Write('Nhap so luong so ');readln(n);

For i:=1 to n do

Begin

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

End;

Writeln('Cac so vua nhap la ');

For i:=1 to n do write(a[i]:6);

Writeln;

Write('Tong la ');

For i:=1 to n do s:=s+a[i];

Write(s);

Readln;

End.


Các câu hỏi tương tự
Eni Lin
Xem chi tiết
Nguyễn văn thanh
Xem chi tiết
Trần Long
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
tâm minh
Xem chi tiết
H dáo
Xem chi tiết
Lê thị anh thư
Xem chi tiết
Thùy Trinh Ngô
Xem chi tiết
Nguyên Đăng
Xem chi tiết