Giúp em vs ạ
Đag k.tra
Viết chương trình nhập một dãy n số nguyên và một dãy m số nguyên tính tổng của mỗi dãy cho biết dãy nào có tổng lớn hơn
Giúp em vs
Em còn 5phút huhu
Giúp em vs ạ
Đag k.tra
Viết chương trình nhập một dãy n số nguyên và một dãy m số nguyên tính tổng của mỗi dãy cho biết dãy nào có tổng lớn hơn
Giúp em vs
Em còn 5phút huhu
var a, b: array[1..250] of integer;
n, m, i: byte;
sn, sm: word;
Begin
Sn:=0, sm:=0;
Write(‘n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] = ‘); readln(a[i]);
Sn:=sn+a[i];
End;
Write(‘m = ‘); readln(m);
For i:=1 to m do
Begin
Write(‘b[‘, i, ‘] = ‘); readln(b[i]);
Sm:=sm+b[i];
End;
If sn>sm
then write(‘day a co tong lon hon’)
Else if sm>sn
Then write(‘day b co tong lon hon’)
Else write(‘hai day co tong bang nhau’);
Readln
End.
program tong_day;
var A,B:array[1..1000] of integer;
n,m,i,t1,t2:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t1:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’ cua day n so: ‘); readln(A[i]);
t1:=t1+A[i];
end;
write(‘Nhap m: ‘); readln(m);
t2:=0;
for i:=1 to m do
begin
write(‘Nhap so thu ‘,i,’ cua day m so: ‘); readln(B[i]);
t2:=t2+B[i];
end;
writeln(‘Tong cua day n so la: ‘,t1);
writeln(‘Tong cua day m so la: ‘,t2);
if t1=t2 then write(‘=> Tong hai day bang nhau’)
else if t1>t2 then write(‘=> Tong day n so lon hon’)
else write(‘=> Tong day m so lon hon’);
readln;
end.