Viết chương trình nhập vào hai mảng số nguyên(đều có n phần tử, n<1000). Cộng từng phần tử tương ứng của hai mảng và ghi kết quả vào tệp.

var a,n,i,s: integer;

a,b: array[1..100] of integer;

begin

write('Nhap do dai: '); readln(n);

s:=0;

writeln('Nhap mang a:');

for i:=1 to n do begin

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

end;

writeln('Nhap mang b:');

for i:=1 to n do begin

    write('b[',i,']='); readln(b[i]);

end;

for i:=1 to n do if a[i]=b[i] then s:=s+a[i];

write('Tong phan tu tuong ung la: ',s);

readln

end.

Viết chương trình nhập vào hai mảng số nguyên(một mảng có n phần tử, một mảng có m phần tử)(n,m<1000). Ghép 2 mảng thành một mảng lần lượt đan xen từng phần tử mảng này với mảng kia những số không ghép cặp được thì cho xuống dưới cùng, thứ tự không đổi và ghi kết quả vào tệp.

n,m=map(int,input().split())
a=list(map(int,input().split()))
b=list(map(int,input().split()))
c=[]
for i in range (max(n,m)):
    try:
        c.append(a[i])
    except:
        pass
    try:
        c.append(b[i])
    except:
        pass
f=open('kq.txt','w')
print(*c,file=f)
f.close()
print(*c)

                                                chúc bạn học giỏi