1Vieết chương trình nhập vào 1 dãy n số nguyên , in ra màn hình các số chẵn và tổng các số chẵn
2Vieết chương trình nhập vào 1 dãy n số nguyên , in ra màn hình các số lẻ và tổng các số lẻ
1Vieết chương trình nhập vào 1 dãy n số nguyên , in ra màn hình các số chẵn và tổng các số chẵn
2Vieết chương trình nhập vào 1 dãy n số nguyên , in ra màn hình các số lẻ và tổng các số lẻ
Bài 1:
program so_chan;
uses crt;
var A:array[1..1000] of integer;
n,i,d,t:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
d:=0; t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod 2=0 then
begin
t:=t+A[i];
d:=d+1;
end;
end;
if d=0 then write(‘Khong co so chan nao’)
else for i:=1 to n do
if A[i] mod 2=0 then write(A[i],’ ‘);
writeln;
write(‘Tong cac so chan la: ‘,t);
readln;
end.
Bài 2:
program so_le;
uses crt;
var A:array[1..1000] of integer;
n,i,d,t:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
d:=0; t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod 2=1 then
begin
t:=t+A[i];
d:=d+1;
end;
end;
if d=0 then write(‘Khong co so le nao’)
else for i:=1 to n do
if A[i] mod 2=1 then write(A[i],’ ‘);
writeln;
write(‘Tong cac so le la: ‘,t);
readln;
end.
Đáp án:
1,
program bai1;
Var
N,S,i:integer; A:array[1..1000] of integer;
Begin
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do readln(A[i]);
S:=0; write(‘Cac so chan la: ‘);
For i:=1 to n do if A[i] mod 2=0 then
begin
S:=S+A[i]; write(A[i],’ ‘);
End; writeln;
write(‘Tong cac so chan la: ‘,S);
Readln;
End.
2,
program bai2;
Var
N,S,i:integer;
A:array[1..1000] of integer;
Begin
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do readln(A[i]);
S:=0; write(‘Cac so le la: ‘);
For i:=1 to n do if A[i] mod 2<>0 then
begin
S:=S+A[i]; write(A[i],’ ‘);
End; writeln;
write(‘Tong cac so le la: ‘,S);
Readln;
End.