Mình sẽ khai báo mảng mảng t chứa tiwwfn điện của 12 tháng.

+Sau đó cộng các phần tử lại để tính số tiền cả năm, sau đó chia 12 để tính tiền điện trung bình mỗi tháng.

+So sánh với số tiền từng tháng để tìm tháng nhiều tiền nhất

+ So sánh với số tiền trung bình để tìm các tháng ít hơn trung bình

Code

Program tiendien;
Uses crt;
Var a:array[1..12] of integer;
tb:real;
i,tmax,s:integer;
BEGIN
For i:=1 to 12 do begin Write('Nhap tien dien thang ',i,': '); Readln(a[i]); end;
tmax:=a[1]; s:=0;
For i:=1 to 12 do
begin
s:=s+a[i];
if tmax < a[i] then begin tmax:=a[i]; end;
end;
tb:=s/12;
Writeln('Tong tien dien ca nam la: ',s);
Writeln('Trung binh tien dien 1 thang la: ',tb:4:2);
Write('Cac thang dung nhieu tien dien nhat la: ');
For i:=1 to 12 do if a[i] = tmax then write(i:4);
Writeln;
Write('Cac thang tien dien it hon trung binh la ');
For i:=1 to 12 do if a[i] < tb then write(i:4);
Readln;
END.