Bài 1: Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập
Bài 2: Nhập vào n số nguyên từ bàn phím. Tính tổng các số có tổng các chữ số chia hết cho 4 trong n số vừa nhập
Viết trong pascal 8 thôi ạ đừng viết C++
Bài 1: Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập Bài 2: Nhập vào n số nguyên từ bàn phím. Tính tổng
By Katherine
bài 1:
var a:array[1..1000] of longint;
n,i,s,s1:longint;
begin
write(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then
s:=s+a[i];
write(‘Tong chan la:’,s);
writeln;
for i:=1 to n do
if a[i] mod 2<>0 then
s1:=s1+a[i];
write(‘Tong le la:’,s1);
readln;
end.
bài 2:
var a:array[1..1000] of longint;
n,i,s:longint;
begin
write(‘Nhap n:’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 4=0 then
s:=s+a[i];
write(‘Tong cac so chia het cho 4 la:’,s);
readln;
end.