giúp dùm với các bác ơi

[sownlee]

nhập một dãy số nguyên. tính tổng các số nguyên tố trong dãy. Trung bình cộng các số cột lẻ. Làm bẳng chương trình chính nhá. Chương trình con tui chẳng hiểu

[anhdjen]

?

ko dùng chương trình con ......... ko dùng cả hàm kiểm tra nguyên tố thì nhọc lắm . :shifty:

[Thinhquang75]

ko có chương trình con đây !

uses crt;
var a,d:array[1..100]of integer;
    n,i,j,t1,t2,dem:integer;
    tb:real;
BEGIN
clrscr;
write('nhap so phan tu :');readln(n);
for i:=1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
    end;
for i:=1 to n do
    for j:=2 to a[i]-1 do
        if a[i] mod j = 0 then inc(d[i]);
t1:=0;
for i:=1 to n do
    if (d[i]=0) and (a[i]>1) then t1:=t1+a[i];
writeln('tong cac so nguyen to trong day :',t1);
t2:=0;
dem:=0;
for i:=1 to n do
    if i mod 2 <> 0 then
       begin
            t2:=t2+a[i];
            inc(dem);
       end;
tb:=t2/dem;
writeln('trung binh cong cac so cot le :',tb:3:1);
readln;
END.

[Trịnh Nguyệt]

cảm ơn nhiều. Đúng là vất vả hơn chương trình con nhưng thế mới bõ cảm ơn hihi