uses crt;
var a:array[1..3]of longint; i,d,tong:longint;
begin
clrscr;
   write('Nhap 3 so=');readln(a[1],a[2],a[3]);
   for i:=1 to 3 do if a[i] mod 2=1 then begin inc(d); inc(tong,a[i]); end;
   writeln(tong/d:0:5);
readln;
end.

///////////////////////////////////////////

Test:

Mình không học Pascal nên chỉ nói cách làm thôi nhé!

Khai báo biến :

a = 1

Tong = 0

TBC = 0

So_le = [] (mảng rỗng) 

Bước 1: Nhập số

Bước 2 : Lọc các số lẻ trong 3 số nhập vào.

Bước 3 : Cho các số lẻ vào trong một mảng.

Bước 4 : Nếu độ dài của mảng = 1 thì trung bình cộng = phần tử đầu tiên.

Nếu không thì : lặp lại độ dài của mảng [ thay đổi Tong phần tử a ; thay đổi a 1]

Bước 5 : TBC = Tong / độ dài mảng. 

In TBC ra màn hình

Mình có source code python, bạn tham khảo ở dưới ạ. Mong MOD không xóa ạ: