giúp mk vs! viết chương trình nhập vào một dãy số nguyên từ bàn phím, in ra màn hình trung bình cộng của các số dương trong dãy.

0 bình luận về “giúp mk vs! viết chương trình nhập vào một dãy số nguyên từ bàn phím, in ra màn hình trung bình cộng của các số dương trong dãy.”

1. 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];

   end;

   Tbc:=S/d;

   Writeln (‘Trung binh cong cac so duong trong day la:’, Tbc:8:3);

   Readln 

   End.

   Bình luận

2. Write(‘nhap n: ‘);Readln(n);t:=0;

   for i:=1 to n do

    begin

    write(‘Pt thu ‘,i,’ la: ‘);readln(a[i]);

    t:=t+a[i];

   end;

   write(‘tbc la’,t/n:0:3);

   //tự làm phần còn lại

   Bình luận