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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Duyen Le

1) Viết chương trình nhập vào giá trị K từ bàn phím xuất ra màn hình các giá trị từ 1 đến K 2) Viết chương trình nhập vào một mảng gồm N phần tử được nhập từ bàn phím. Tình tổng các giá trị phần tử của mảng đó Giúp mình với gần làm bài tập rồi

Nguyễn Lê Phước Thịnh
15 tháng 6 2020 lúc 13:10

Câu 1:

uses crt;

var k,i:integer;

begin

clrscr;

write('Nhap k='); readln(k);

for i:=1 to k do

write(i:4);

readln;

end.

Câu 2:

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Tong cac gia tri cua day la: ',t);

readln;

end.


Các câu hỏi tương tự
thanh thuý
Xem chi tiết
nguyễn thanh minh nhật
Xem chi tiết
Niễn Mạn Kỳ
Xem chi tiết
Phạm Mỹ Dung
Xem chi tiết
Dương Lê
Xem chi tiết
Nhan Ma
Xem chi tiết
Bookmark
Xem chi tiết
Quỳnh Như
Xem chi tiết
Nhật Nguyễn
Xem chi tiết