Viết chương trình nhập vào từ bàn phím mảng A, đếm xem mảng A có bao nhiêu số lẻ và tính tổng, tích các số lẻ đó. Nêu tích và tổng cùng là một số lẻ thì in ra màn hình ‘đủ điều kiện’ ngược lại in ra ‘không đủ điều kiện’.
Viết chương trình nhập vào từ bàn phím mảng A, đếm xem mảng A có bao nhiêu số lẻ và tính tổng, tích các số lẻ đó. Nêu tích và tổng cùng là một số lẻ t
By Kennedy
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,dem,tong,tich: longint;
begin
clrscr;
write(‘Nhap so phan tu cua mang: ‘); readln(n);
dem:=0; tong:=0; tich:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]: ‘); readln(a[i]);
if (a[i] mod 2=1) then
begin
dem:=dem+1;
tong:=tong+a[i];
tich:=tich*a[i];
end;
end;
writeln(‘So le co trong day so: ‘,dem);
writeln(‘Tong cac so le: ‘,tong);
writeln(‘Tich cac so le: ‘,tich);
if (tong mod 2=1) and (tich mod 2=1) then
writeln(‘DU DIEU KIEN’)
else
writeln(‘KHONG DU DIEU KIEN’);
readln;
end.
program ct;
uses crt;
var A:array[1..1000] of integer;
i,n,d:integer;
S,T:longint;
begin clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);
end;
S:=0; T:=1;
for i:=1 to n do
if A[i] mod 2=1 then
begin
inc(d);
S:=S+A[i];
T:=T*A[i];
end;
writeln;
writeln(‘Co ‘,d,’ so le’);
writeln(‘Tong la: ‘,S);
writeln(‘Tich la: ‘,T);
if (S mod 2=1) and (T mod 2=1) then write(‘Du dieu kien’)
else write(‘Khong du dieu kien’);
readln;
end.
Học tốt!