Viết chương trình Tính trung bình cộng các số dương trong dãy số nguyên nhập từ bàn phím

0 bình luận về “Viết chương trình Tính trung bình cộng các số dương trong dãy số nguyên nhập từ bàn phím”

1. Progam trung_binh_cong

   uses crt;

   var a,b,c:real;

   begin

   clrscr

   write(nhap so a,b,c=’,)readln(a,b,c)

   writeln(‘trung binh cong cua ba so=’,(a+b+c)/3;

   readln;

   end

   Bình luận

2. Program tinh_tbc;

   Uses crt;

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

                  S,i,n,d : integer;

                  Tbc : real;

   Begin 

   Write (‘nhap n=’); 

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu ‘,i,’=’);

   Readln (A[i]);

   end;

   S:=0;

   d:=0;

   For i:=1 to n do 

   If A[i]>0 then

   Begin

   d:=d+1;

   S:=S+A[i];

   Tbc:= S/d;

   end;

   Writeln (‘Trung binh cong cua day la:’, Tbc:8:3);

   Readln 

   End.

   Bình luận