Question

Viết chương trình nhập dãy số gồm n số nguyên từ bàn phím :

a) in ra màn hình dãy số vừa nhập

b)tính tích các số lẻ vừa nhập và in kết quả ra màn hình

Answer 1

Lời giải :

program hotrotinhoc ;

var a: array[1..32000] of integer ;

n,i,tich : integer ;

begin

write('n='); readln(n);

write('Nhap cac gia tri ');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tich:=1;

for i:= 1 to n do

if a[i] mod 2= 1 then tich:=tich*a[i];

write('Tich cac so le la:',tich);

readln

end.

Answer 2

Bài làm:

Uses crt;

var n:integer;

a:array[1..10000] of int64;

i:longint;

s:int64;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,':');

readln(a[i]);

end;

writeln('Cac so vua nhap:');

s:=0;

for i:=1 to n do

begin

write(a[i],'; ');

if a[i] mod 2 # 0 then

s:=s+a[i];

end;

writeln('Tich cac so le:',s);

readln

end.

Answer 3

mình sửa đoạn s:=0; thành s:=1; nhé

và đoạn s:=a+a[i]; thành s:=s*a[i] nhé