Viết chương trình cho phép nhập vào dãy số nguyên gồm n phần tử (1<=n<=100) a) Tính trung bình cộng của các phần tử lớn hơn 0 có trong dãy số ( kết quả làm tròn hai chữ số thập phân). b) In ra màn hình các số nguyên tố có trong dãy trên

Program bai;

Uses crt;

Var a,b:array[1..101] of integer;

D,d1,s,i,j:integer;

Kt:boolean;

Begin

Readln(n);

D:=0;d1:=0;s:=0;

For i:=1 to n do

Begin

Readln(a[i]);

If a[i]>0 then begin d:=d+1;s:=s+a[i];end;

If A[i]<2 then kt:=false 

Else

Begin

Kt:=true;

For j:=2 to a[i] div 2 do

If a[i] mod i=0 then

Begin

Kt:=false;

Break;

End;

End;

If kt=true then 

Begin

D1:=d1+1;

B[d1]:=a[i];

End;

End;

Writeln(' trung binh cong cac so lon hon 0 la ',s/d:3:2);

Writeln(' cac so nguyen to la ');

For i:=1 to d1 do

Write(b[i],' ');

Readln

End.

Program viet_chuong_trinh;

Uses crt;

Var a,b: array[1..101] of integer;

D,d1,s,i,j:integer;

Kt:boolean;

Begin

Readln(n);

D:=0;d1:=0;s:=0;

For i:=1 to n do

Begin

Readln(a[i]);

If a[i]>0 then begin d:=d+1;s:=s+a[i];end;

If A[i]<2 then kt:=false 

Else

Begin

Kt:=true;

For j:=2 to a[i] div 2 do

If a[i] mod i=0 then

Begin

Kt:=false;

Break;

End;

If kt=true then 

Begin

D1:=d1+1;

B[d1]:=a[i];

End;

Writeln(' trung binh cong cac so lon hon 0 la ',s/d:3:2);

Writeln(' cac so nguyen to la ');

For i:=1 to d1 do

Write(b[i],' ');

Readln

End.