Hướng dẫn giải:

Program tinh_trung_binh_cong;

Uses crt;

Var a,b,c : Integer;

      trungbinh: Real;

Begin;

Clrscr;

Writeln('Nhap so nguyen a: '); Readln(a);

Writeln('Nhap so nguyen b: '); Readln(b);

Writeln('Nhap so nguyen c: '); Readln(c);

trungbinh:=(a+b+c)/3;

Writeln('Gia tri trung binh cac so nguyen la: ',trungbinh:2:2);

Readln;

End.

Chạy chương trình thành công nha và chúc bạn học tốt nhé

Program Trung_Binh_Cong;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); realdn(b);

writeln('Trung binh cong cua 2 so ',a,' va ',b,' = ' , a*b/2);

#nguyenxuann49

Chúc bạn học tốt ạ!