uses crt;
var a:array[1..500]of integer;
    n,i,t,d:integer;
Begin
    clrscr;
    write('1. n = ');readln(n);
    for i:=1 to n do
    begin 
        write('a[',i,'] = ');readln(a[i]);
        t:=t+a[i];
        if a[i]=5 then d:=d+1;
    end;
    writeln('2. tong cac pt mang = ',t);
    write('3. co ',d,' pt = 5: ');
    for i:=1 to n do
    if a[i]=5 then write(a[i],' ');
    writeln; d:=0; t:=0;
    for i:=1 to n do
    if a[i] mod 2<>0 then 
    begin  
        t:=t+a[i];
        d:=d+1;
    end;
    writeln('4. trung binh cac pt le = ',t/d:3:1);
    for i:=1 to n do
    if a[i]=0 then a[i]:=10;
    write('5. in mang: ');
    for i:=1 to n do write(a[i],' ');
    readln
End.

uses crt;
var i,n,s,s2,d,d2:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 s:=s+a[i];
 if a[i] mod 2<>0 then
 begin
  s2:=s2+a[i];
  d:=d+1;
 end;
 if a[i]=0 then a[i]:=10;
end;
writeln('tong cac ptu cua mang la:',s);
write('cac ptu co gia tri bang 5 la:');
for i:=1 to n do
 if a[i] =5 then begin write(a[i],' '); d2:=d2+1;end;
writeln;
writeln('co ',d2,' ptu co gia tri bang 5');
writeln('trung binh xong cac ptu la so le la:',s2/d:4:2);
write('mang sau khi thai gia tri 0 bang 10 la:');
for i:=1 to n do write(a[i],' ');
readln;
end.