Lập chương trình nhập vào 15 số nguyên .sau đó, thực hiện các công việc sau 1 tính trung bình của 15 số 2.cho biết số lượng số nguyên lớn hơn trung bì

0 bình luận về “Lập chương trình nhập vào 15 số nguyên .sau đó, thực hiện các công việc sau 1 tính trung bình của 15 số 2.cho biết số lượng số nguyên lớn hơn trung bì”

1. program mang15so;

   uses crt;

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

         t:longint;

         d,i:byte;

         max:integer;

   begin

   clrscr;

   writeln(‘NHAP TUNG SO’);

   t:=0;

   for i:=1 to 15 do

    begin

     write(‘So thu ‘,i,’: );

     readln(A[i]);

     t:=t+A[i];

    end;

   writeln(‘Trung binh cong cua chung la: ‘,t/15:2:2);

   d:=0;  max:=A[1];

   for i:=1 to 15 do

    begin

     if A[i]>tb/15 then d:=d+1;

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

    end;

   writeln(‘Trong day co ‘,d,’ so lon hon trung binh’);

   write(‘So lon nhat la: ‘,max);

   readln

   end.

   Bình luận