Viết chương trình nhập một dãy số nguyên không theo thứ tự và các số có giá trị khác nhau. Tính tổng các số chẵn của dãy và in các số lẻ ra màn hình.
Viết chương trình nhập một dãy số nguyên không theo thứ tự và các số có giá trị khác nhau. Tính tổng các số chẵn của dãy và in các số lẻ ra màn hình.
By Madelyn
program phuongt;
uses crt;
var A: array[1..500] of integer;
i, n, s: integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
s:=0;
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
if A[i] mod 2 = 0 then s:=s+A[i];
end;
writeln(‘Tong chan = ‘, s);
write(‘Cac so le: ‘);
for i:=1 to n do if A[i] mod 2 <> 0 then write(A[i]:3);
readln
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,s:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘);readln(n);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘);readln(a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
writeln(‘Tong cac so chan: ‘,s);
write(‘Cac so le: ‘);
for i:=1 to n do if a[i] mod 2=1 then write(a[i],’ ‘);
readln;
end.