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

Thơ Vũ

Viết ct nhập số N, nhập dãy số nguyên, in dãy số nguyên, tính tổng và in kết quả

Phạm Thanh Tường
11 tháng 5 2017 lúc 20:13

Program kthkII;

uses crt;

var i, n, s, N : integer;

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

begin

write('Nhap so nguyen N: '); readln(N);

write('Nhap do dai cua day so: '); readln(n);

for i:=1 to n do

begin write('A[',i,']='); readln(A[i]); end;

for i:=1 to n do write('A[',i,']= ', A[i]);

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('Tong cac so la: ', s);

readln;

End.

Bình luận (0)

Các câu hỏi tương tự
Nguyễn Mỹ
Xem chi tiết
Nhật
Xem chi tiết
Hải Hà
Xem chi tiết
Trung Kien
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
minh dương
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Ly Khánh
Xem chi tiết
Nguyễn Xuân Dự
Xem chi tiết