program bt;

uses crt;

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

      i, n, le: integer;

begin

  clrscr;

  write('Nhap n la:'); readln(n);

  for i := 1 to n do begin

    writeln('Nhap a[', i ,']=');

    readln(a[i]);

  end;

  le := 0;

  for i := 1 to n do if a[i] mod 2 <> 0 then le := le + 1;

  writeln('Co', le ,' so le co trong mang');

  readln

end.

Xin câu trả lời hay nhất ạ :3

program bt;

uses crt;

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

i,n,tong,tich:integer;

begin

clrscr;

write('Do dai cua day la:'); readln(n);

for i:=1 to n do

begin

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

end;

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong + a[i];

tich:=tich*a[i];

end;

write('tong cac so tu nhien nhap tu ban phim:',tong);

writeln;

write('tich cac so tu nhien nhap tu ban phim:',tich);

readln

end.