Viết thuật toán tìm số lớn nhất, nhỏ nhất và độ lệch trung bình

0 bình luận về “Viết thuật toán tìm số lớn nhất, nhỏ nhất và độ lệch trung bình”

1. var a: array[1..250] of integer;

         dl: array[1..250] of real;

         tb: real;

         max, min: integer;

         i, n: byte;

   Begin

       Write(‘n = ‘); readln(n); tb:=0;

       For i:=1 to n do

          Begin

             Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

             Tb:=tb + a[i];

          End;

       Tb:=tb/n; min:=a[1]; max:=a[1];

       For i:=1 to n do

          Begin

                Dl[i]:=abs(a[i]-tb);

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

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

          End;

       Writeln(‘max: ‘, max, ‘; min: ‘, min);

       Writeln(‘do lech trung binh:’);

       For i:=1 to n do write(dl[i], ‘ ‘);

       Readln

   End.

   Bình luận