Giúp em với ạ,em cảm ơn nhiều
Viết chương trình nhập vào dạy n số nguyên(0<n<=10^6)
in dãy vừa nhập lên màn hình(theo hàng,mỗi số cách nhau 1 dấu phẩy)
-Tính tổng là trung bình cộng các phần tử tại các vị trí chẵn
-Tính số lượng các sô nguyên tố có trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,dem,tb,dem1,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i],',');
tb:=0;
dem:=0;
for i:=1 to n do
if i mod 2=0 then
begin
tb:=tb+a[i];
inc(dem);
end;
writeln('Trung binh cong cac phan tu o vi tri chan la: ',tb/dem:4:2);
dem1:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then inc(dem1);
end;
writeln('So so nguyen to la: ',dem1);
readln;
end.
Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.
mọi người giúp em với em cảm ơn ạ