Viết chương trình nhập vào mảng A gồm n phần tử ( n $\leq$ 100 ) . Tính trung bình cộng các số dương trong mảng P/S: mảng có 5 phần tử các số lần lượ

0 bình luận về “Viết chương trình nhập vào mảng A gồm n phần tử ( n $\leq$ 100 ) . Tính trung bình cộng các số dương trong mảng P/S: mảng có 5 phần tử các số lần lượ”

1. program ct;

   uses crt;

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

         i,n,d:longint;

         S:longint; Tbc:real;

   begin clrscr;

      write(‘Nhap so phan tu: ‘); 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

           begin

              S:=S+A[i];

              inc(d);

           end;

        Tbc:=S/d;

      writeln(‘TBC cac so duong la: ‘,Tbc:4:2);

   readln;

   end.

   Học tốt!

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n,dem,s:longint;
   begin
           clrscr;
           write(‘nhap so phan tu cua mang: ‘); readln(n);
           dem:=0; s:=0;
           for i:=1 to n do
                   begin
                           write(‘a[‘,i,’]: ‘); readln(a[i]);
                           if a[i]>0 then
                                   begin
                                           s:=s+a[i];
                                           dem:=dem+1;
                                   end;
                   end;
           writeln(‘TBC cac so duong cua mang: ‘,s/dem:0:3);
           readln;
   end.

   Bình luận