viết chương trình a,nhập vào dãy n số nguyên dương b,tính trung bì

0 bình luận về “viết chương trình a,nhập vào dãy n số nguyên dương b,tính trung bì”

1. Uses crt ;

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

   i,n:integer;
   tong_so_duong,tong_so_am,TBC_so_duong,TBC_so_am,so_so_am,so_so_duong:real;

   Begin
   clrscr;

   Write(‘Nhap so so hang:’);

   readln(n);

   for i:=1 to n do

   Begin

   write(‘Nhap so:’);

   readln(A[i]);

   if (A[i]>=0) then

   begin

   tong_so_duong:=tong_so_duong+A[i];

   so_so_duong:=so_so_duong+1;

   end

   else

   begin

   tong_so_am:=tong_so_am+A[i];

   so_so_am:=so_so_am+1;

   end;
   end;

   if (so_so_am>0) then TBC_so_am:=tong_so_am/so_so_am;

   if (so_so_duong>0) then TBC_so_duong:=tong_so_duong/so_so_duong;

   writeln(‘TBC so duong la:’,TBC_so_duong:5:5);

   writeln(‘TBC so am la:’,TBC_so_am:5:5);

   readln;

   end.

   Bình luận