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
Huy Be

Nhập mảng A,B cùng phần tử.Cộng các phần tử và đưa vào mảng C. Mn giúp mik cần gấp ạ

Nguyễn Lê Phước Thịnh
15 tháng 6 2022 lúc 23:05

uses crt;

var a,b,c:array[1..1000]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

readln(a[i],b[i]);

c[i]:=a[i]+b[i];

end;

for i:=1 to n do write(c[i]:4);

readln;

end.

Cao ngocduy Cao
17 tháng 6 2022 lúc 9:53

uses crt;

var a,b,c:array[1..1000]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

readln(a[i],b[i]);

c[i]:=a[i]+b[i];

end;

for i:=1 to n do write(c[i]:4);

readln;

end.


Các câu hỏi tương tự
Lan Tuyết
Xem chi tiết
Đặng Nguyễn Hoài Băng
Xem chi tiết
Ngọc Hân
Xem chi tiết
Phan Hùng Anh
Xem chi tiết
Thị Na Trần
Xem chi tiết
Đào Nguyễn
Xem chi tiết
nhannhan
Xem chi tiết
Nguyễn Huỳnh Như
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Nguyen Bảo Nhi
Xem chi tiết