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'.

giangsu2311

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 27 xem

1 trả lời

Thích Trả lời

nguyeenntrung297

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!

Vote (0) Phản hồi (0) 2 năm trước

khanhvd5599944

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Vẽ giúp hình trông cute *) Lưu ý: Vé trên tờ giấy hình tam giác, đơn giản nhất có thể nha Thanks nhiều ^^

CHO A = 4 + 2^2 + 2^3 + … + 2^20. CHỨNG MINH RẰNG A CHIA HẾT CHO 128

Một hợp chất $MX_{2}$ có đặc điểm như sau: - Tổng số proton, nơtron, electron là 140, trong đó số hạt ko mang điện ít hơn số hạt mang điện là 44. - Nguyên tử khối của M nhỏ hơn nguyên tử khối của X là 11. - Tổng số hạt có trong $X^{-}$ (ion) nhiều hơn trong $M^{2+}$ là 19. Tìm tên nguyên tố M và X

Nhà An ở cách trường 2km,Lúc 7h kém 35 phút, An đixe đạp đến trường .Biết rằng lúc 6h45 hthi2 trường đóng cổng . Hãy cho bik An có kịp đến tới trường trước khi đống cỗng ko? Biết tốc độ của An đi xe đạp là 8 km/h

Vẽ tus trong ảnh '-' Tus này ló hơi xàm .....

- give the correct from of the verbs in the bracket 1: Is there anything here worth( buy) 2: He ( suppose) to leave at 4 o clock 3 : over the years. She ( collect) thousands of stamps 4 : I really have my watch( repair)

Giải giúp mình bài này nhé( Chứng minh pt) Cos²3X*cos2X-Cos²=0 1+SinX +CosX +Sin2X + Cos2X=0

phân tích thành nhân tử( phối hợp) 1) -12x^3y+74 xy^3 2) 8a^2xy-18b^2xy 3) 9xy-4a^2xy 4) 2xm^3-2x 5) 8a^3x-27b^3x 6) 16a^3xy-54b^3xy

đề bài : so sánh ghi rõ cách làm và vì sao làm như vậy giúp mình ạ

Vẽ anime hay chibi gì cũng được miễn đang vui hộ em ạ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến