Nhập dãy in số nhỏ nhất, tổng dãy, trung bình cộng của dãy.

0 bình luận về “Nhập dãy in số nhỏ nhất, tổng dãy, trung bình cộng của dãy.”

1. var n,i,min,tong: integer;

         A:array[1..500] of integer;

   begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            min:=1;

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

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

                     T:=T+A[i];

            end;

            writeln(‘So nho nhat: ‘,min);

            writeln(‘Tong :’,tong);

            writeln(‘Trung binh cong : ‘,tong/n:2:2);

            readln;

   end.

   Bình luận

2. progam Day;

   use crt;

   var A:array [1..500] of integer;

         n,i,min,T: integer;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            min:=1;

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

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

                     T:=T+A[i];

            end;

            writeln(‘So nho nhat: ‘,min);

            writeln(‘Tong cua day so = ‘,T);

            write(‘Trung binh cong cua day = ‘,T/n:2:2);

            readln

   End.

   Bình luận