uses crt;

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

i,n,s,ss,d: integer;

begin

clrscr;

write ('nhap so phan tu: ');  readln (n);

s:=0;

d:=0;

ss:=0;

for i:=1 to n do

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

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

end;

writeln ('Tong la: ',ss);

writeln ('Trung binh: ',s/d:1:2);

readln;

end.

uses crt;
var n,i,j,s,d,d2,tb: integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        d:=0;
        for j:=1 to a[i] do if a[i] mod j = 0 then d:=d+1;
        if d=2 then s:=s+a[i];
        if a[i]>0 then begin
            tb:=tb+a[i];
            d2:=d2+1;
        end;
    end;
    writeln('Tong cac so nguyen to: ',s);
    writeln('Trung binh cong cac so duong: ',(tb/d2):4:2);
    readln
end.