Bài 3:

Program baitap;

Uses crt;

Var A:array[1..50] of real;

      S:real;

      i,n:integer;

Begin

Clrscr;

Write('Nhap so ho N='); Readln(n);

S:=0;

For i:=1 to n do

     Begin

     Write('So kw ho ',i,':');

     Readln(A[i]);

     S:=S+A[i];

     End;

Writeln('Tong so kw tieu thu la:',S:5:1);

If S>100 then writeln('Vuot dinh muc')

               Else writeln('Khong vuot dinh muc');

Readln

End.

Bài 4:

Program baitap;

Uses crt;

Var A:array[1..50] of real;

      i,N,dem:integer;

Begin

Clrscr;

Write('N='); Readln(N);

dem:=0;

For i:=1 to n do

     Begin

     Write('Nhap so thu ',i,':');

     Readln(A[i]);

     If A[i]<10 then dem:=dem+1;

     End;

Writeln('Co ',dem,' so be hon 10');

Readln

End.

Bạn dùng ngôn ngữ nào vậy, mình dùng C# nha:

using System;

class Program

{

static void Main()

{

Console.Title = "Tính số điện";

Console.OutputEncoding = System.Text.Encoding.UTF8;

Console.Write("Nhập số hộ: ");
int skw = 0;
int n = int.Parse(Console.ReadLine());
int i = 1;
do
{
    Console.WriteLine("Nhập số kw của hộ " + i);
    int kw = int.Parse(Console.ReadLine());
    skw += kw;
    i += 1;
    Console.Clear();
}
while (i <= n);

if (skw > 100)
{
    Console.WriteLine("Tổng số điện là: " + skw + " và số điện đã vượt định mức");
}
else
{
    Console.WriteLine("Tổng số điện là: " + skw + " và số điện không vượt định mức");
}
}

}