5)

program c5;

uses crt;

var A:array[1..1000] of real;

      S,TBC:real;

      i,n:integer;

begin clrscr;

   writeln('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0; TBC:=0;

   for i:=1 to n do

     begin

        S:=S+A[i]; 

        TBC:=S/n;

   writeln('Tong la: ',S:4:2);

   writeln('Trung binh cong la: ',TBC:4:2);

readln;

end.

6)

program c6;

uses crt;

var A:array[1..1000] of real;

      Max,Min:real;

      i,n:integer;

begin clrscr;

   writeln('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     Max:=A[1]; Min:=A[1];

   for i:=1 to n do

     begin

        if A[i]>Max then Max:=A[i];

        if A[i]<Min then Min:=A[i];

     end;

   writeln('Max la: ',Max);

   writeln('Min la: ',Min);

readln;

end.

Học tốt!

*Bài 5:

Program bai_tap;

Uses crt;

Var A :  array [1..150] of integer;

               S,i,n : integer;

               Tbc : real;

Begin 

Write ('nhap n='); 

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

S:=0;

For i:=1 to n do 

 S:=S+A[i];

Tbc:= S/n;

Writeln ('Tong cua day la:',S);

Writeln ('Trung binh cong cua day la:', Tbc:8:3);

Readln 

End.

*Bài 6:

Program bai_tap;

Uses crt;

Var A :  array [1..150] of integer;

               i,n,max,min: integer;

Begin 

Write ('nhap n='); 

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

Max:=A[1];

For i:=2 to n do 

If A[i]> max then max:=A[i];

Min:=A[1];

For i:=2 to n do

If A[i]< min then min:= A[i];

Writeln ('max cua day la:',max);

Writeln ('min cua day la:', min);

Readln 

End.

#tìm S,tbc,max,min của dãy n số nguyên hả ? :v