uses crt;

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

i, n, dem1, dem2, t1, t2 : integer;

tb1, tb2 : real;

begin

clrscr;

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

t1 := 0; t2 := 0;

dem1 := 0; dem2 := 0;

for i := 1 to n do

begin

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

if (a[i] < 0) and (a[i] mod 2 = 0) then

begin

dem1 := dem1 + 1;

t1 := t1 + a[i];

end;

if (a[i] < 0) and (a[i] mod 2 <> 0) then

begin

dem2 := dem2 + 1;

t2 := t2 + a[i];

end;

end;

tb1 := t1/dem1;

tb2 :=t2/dem2;

writeln('tong so am chan :', tb1:3:2);

writeln('tong so am le :', tb2:3:2);

readln

end.

uses crt;
var a:array[1..100] of longint;
n,i,sc,sl,dc,dl:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i] <0 then
begin

if a[i] mod 2=0 then
begin
sc:=sc+a[i];
dc:=dc+1;
end
else
begin
sl:=dl+a[i];
dl:=dl+1;
end;
end;
writeln('tb am chan',sc/dc);
writeln('tb am le',sl/dl);
readln;
end.