Question

LÀM GIÚP MÌNH 2 BÀI NÀY VÔ (FREE PASCAL) RỒI GỬI ẢNH CHO MÌNH NHÉ ! GẤP TRONG NGÀY

1 Viết chương trình pascal nhập vào 1 dãy số nguyên X . In ra màn hình xem có bao nhiêu số lẻ trong dãy số nguyên X.

Input	N=10 2 5 7 9 8 10 4 65 89 56
Output	5

2 Viết chương trình pascal nhập vào 1 dãy số nguyên và tính tổng các số lẻ trong dãy số đó

Input	N=10 2 5 7 9 8 10 4 65 89 56
Output	175 ( = 5+7+9+65+89)

Answer 1

1.

Program HOC24;

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

i,n,d: integer;

begin

readln(n);

d:=0;

for i:=1 to n do read(x[i]);

readln;

For i:=1 to n do if x[i] mod 2<>0 then d:=d+1;

write(d);

readln

end.

Answer 2

2.

Program HOC24;

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

i,n: integer;

t: longint;

begin

readln(n);

t:=0;

for i:=1 to n do read(x[i]);

readln;

For i:=1 to n do if x[i] mod 2<>0 then t:=t+x[i];

write(t);

readln

end.