viết ct nhập vào mảng A gồm n phần tử a.đếm số dương và xuất ra tổng dương b.đếm số âm và xuất ra tổng âm c.tính trung bình cộng của dãy

0 bình luận về “viết ct nhập vào mảng A gồm n phần tử a.đếm số dương và xuất ra tổng dương b.đếm số âm và xuất ra tổng âm c.tính trung bình cộng của dãy”

1. var n,i: integer;
   a:array[1..10000] of real;
   x,y,sa,sd,tb: real;
   begin
   write(‘nhap n = ‘); readln(n);
   for i:=1 to n do
   begin write(‘a[‘,i,’] = ‘); readln(a[i]); end;
   sa:=0;sd:=0;tb:=0; x:=0; y:=0;
   for i:=1 to n do begin
   if a[i] > 0 then begin sd:=sd+a[i]; x:=x+1; end;
   if a[i] < 0 then begin sa:=sa+a[i]; y:=y+1; end;
   end;
   for i:=1 to n do
   tb:=tb+a[i];
   tb:=tb/n;
   writeln(‘Co ‘,x:3:0,’ so duong va tong la: ‘,sd:5:2);
   writeln(‘Co ‘,y:3:0,’ so am va tong la: ‘,sa:5:2);
   write(‘TBC cua day: ‘,tb:5:2);
   end.

   Bình luận

2. uses crt;
   var  a : array[1..100] of integer;
   n,i ,j,k,d1,d2,tb : integer;
   begin clrscr;
   write(‘Nhap n :’); readln(n);
   for i:=1 to n do begin
   write(‘Nhap a[‘,i,’]=’); readln(a[i]); end;
   for i:=1 to n do if a[i] > 0 then d1:=d1+1 else d2:=d2+1;
   for i:=1 to n do if a[i]>0 then j:=j+a[i] else k:=k+a[i];
   writeln(‘So luong so duong la :’,d2);
   writeln(‘Tong cac so duong la :’,j);
   writeln(‘So luong so am la :’,d1);
   writeln(‘Tong cac so am la :’,k);
   writeln(‘Trung binh cua cua day la :’,(k+j)/2:0:2);
   readln
   end.

   Bình luận