Câu 1 :

Program BT_1;
Var i: longint;
    t : real;
    a : array [1..100] of real;
Begin
t := 0;
For i := 1 to 5 do 
Begin
Write ('A[',i,']= ');Readln(a[i]);
t := t + a[i];
end;
Write ('TOng cua 5 so thuc do la : ',t : 2:4);
end.

Câu 2 : 

Program BT_2;
Var i: longint;
    t : real;
    a : array [1..100] of real;
Begin
t := 0;
while i <> 5 do
Begin
i := i + 1;
Write ('A[',i,']= ');Readln(a[i]);
t := t + a[i];
end;
Write ('Tong cua 5 so thuc do la : ',t : 2:4);
end.

Câu 1:

program Cau_1;

uses crt;

var i: byte;

      x,T: real;

Begin

         clrscr;

         for i:=1 to 5 do

         begin

                  write('Nhap so thuc thu ',i,': '); readln(x);

                  T:=T+x;

         end;

         write('T = ',T:2:2);

         readln

End.

Câu 2:

program Cau_2;

uses crt;

var i: byte;

      x,T: real;

Begin

         clrscr;

         i:=1;

         while i<=5 do

         begin

                  write('Nhap so thuc thu ',i,': '); readln(x);

                  T:=T+x;

                  i:=i+1;

         end;

         write('T = ',T:2:2);

         readln

End.