Viết chương trình nhập số nguyên n (0

10/08/2021 Bởi Isabelle

0 bình luận về “Viết chương trình nhập số nguyên n (0<n<=10 000) và mảng a gồm n số nguyên. Tính và in ra trung bình cộng của các số ÂM, số DƯƠNG trong dãy. Không tín”

1. uses crt;
   var i,n,ta,da,td,dd:longint; a:array[1..10]of longint;
   begin
   clrscr;
      write(‘Nhap n: (0<=n<=10) ‘);readln(n);
      for i:=1 to n do 
         begin 
            write(‘a[‘,i,’]=’);readln(a[i]);
            if a[i]<0 then begin ta:=ta+a[i]; inc(da); end; 
            if a[i]>0 then begin td:=td+a[i]; inc(dd); end; 
         end;
      if da>0 then
         writeln(‘Trung binh cong cac so am: ‘,ta/da:0:2)
      else  
         writeln(‘Khong co so am’);
      if dd>0 then
         writeln(‘Trung binh cong cac so duon: ‘,td/dd:0:2)
      else  
         writeln(‘Khong co so duong’);
   readln
   end.  

   Bình luận

2. uses crt;
   var n,i,res,result,count,cou:longint; a:array[1..100]of longint;
   begin
   clrscr;
       readln(n);
       for i:=1 to n do
           begin
               readln(a[i]);
               if (a[i]<0) then begin inc(res,a[i]); inc(count) end;
               if (a[i]>0) then begin inc(result,a[i]); inc(cou) end;
           end;
       if (count>0) then
          writeln(res/count:0:2) else
                                    writeln(‘Khong co so nguyen am!’);
       if (cou>0) then
          writeln(result/cou:0:2) else
                                    writeln(‘Khong co so nguyen duong!’);
   readln;
   end.

   Bình luận