cho dãy số nguyên gồm n phần tử được nhập vào từ bàn phím. Tính trung bình cộng các số dương.

0 bình luận về “cho dãy số nguyên gồm n phần tử được nhập vào từ bàn phím. Tính trung bình cộng các số dương.”

1. program Tb;

   uses crt;

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

         i,n:integer;

         Tb:real;

   begin clrscr;

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

      for i:=1 to n do

        begin

           write (‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

      for i:=1 to n do 

        if A[i]>0 then Tb:=(Tb+A[i])/n;

      writeln (‘Trung binh cong cac so duong la:’, Tb:4:2);

   readln;

   end.

   Học tốt!

   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 cac so duong trong day la:’, Tbc:8:3);

   Readln 

   End.

   Bình luận