viết chương trình nhập dãy A gồm n số nguyên từ bàn phím sau đó tính toán và in ra màn hình giá trị trung bình ,số nhỏ nhất và số nhỏ nhất

0 bình luận về “viết chương trình nhập dãy A gồm n số nguyên từ bàn phím sau đó tính toán và in ra màn hình giá trị trung bình ,số nhỏ nhất và số nhỏ nhất”

1. program ct;

   uses crt;

   var i,n,Min:integer;

         tbc:real;

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

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

       for i:=1 to n do

   begin

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

   end;

     tbc:=0;

       for i:=1 to n do tbc:=(tbc+A[i])/n;

         writeln(‘trung binh cong la:’,tbc);

      Min:=A[1];

        for i:=2 to n do

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

        writeln(‘gia tri nho nhat la:’,Min);

   readln

   end.

   Trả lời

2. Program Hotboy ;

   Uses crt;

   Var i,n,Min:integer;

   S:longint;

   Tb:real;

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

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap n tu ban phim’);

   Readln(n);

   For i:=1 to n do

   Begin

   Write(‘A[‘,i,’]’);

   Readln(A[i]);

   End;

   For i:=1 to n do

   S:=S+A[i];

   Tb:=S/n;

      Min:=A[1];

   For i:=2 to n do

     

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

       

   Write(‘so nho nhat la’,Min);

   Write(‘so trung binh la,tb);

   Readln

   End.

   Trả lời