Question

Nhập các dãy số từ bàn phím Xác định số nhỏ nhất và lớn nhất trong các dãy số vừa nhập Tính tổng các dãy số đó Tính trung bình của tổng các số đó

Answer 1

program phiasaumocogai;

var

     n, i, num, min, max, sum: integer;

     average: real;

begin

     write('Nhap so luong day so can kiem tra: ');

     readln(n);

     min := maxint;

     max := -maxint;

     sum := 0;

     for i := 1 to n do

     begin

          write('Nhap day so thu ', i, ': ');

          readln(num);

          if num < min then

               min := num;

          if num > max then

               max := num;

          sum := sum + num;

     end;

     average := sum / n;

     writeln('So nho nhat la: ', min);

     writeln('So lon nhat la: ', max);

     writeln('Tong cac day so la: ', sum);

     writeln('Trung binh cua cac so la: ', average:0:2);

end.