Trung bình cộng của cả dãy. Trung bình cộng các phần tử dương của mảng. Trung bình cộng các phần tử âm của mảng
2 câu trả lời
program trungbinh;
uses crt;
var A:array[1..200] of integer;
n,i,t,td,ta,dd,da:integer;
begin
write('Nhap so luong phan tu n: '); readln(n);
dd:=0; da:=0; t:=0; td:=0; ta:=0;
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
t:=t+A[i];
if A[i]>0 then
begin
dd:=dd+1;
td:=td+A[i];
end;
if A[i]<0 then
begin
da:=da+1;
ta:=ta+A[i];
end;
end;
writeln('Trung binh cong cua day la: ',t/n:2:2);
if dd=0 then writeln('Trong day khong co so duong de tinh trung binh')
else writeln('Trung binh cac so duong cua day la: ',td/dd:2:2);
if da=0 then writeln('Trong day khong co so am de tinh trung binh')
else writeln('Trung binh cac so am cua day la: ',ta/da:2:2);
readln
end.
Hok bít í bạn pk vậy hok
$#Zyy_mood$
`text[Nhóm: Try Your Best]`
uses crt;
var a : array[1..250] of integer;
i, n, s, s2, s3, d2, d3 : integer;
begin
clrscr;
s := 0; s2 := 0; s3 := 0;
d2 := 0; d3 := 0;
write('nhap so luong phan tu trong day : ');readln(n);
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : ');readln(a[i]);
if a[i] > 0 then
begin d2 := d2 + 1; s2 := s2 + a[i]; end;
if a[i] < 0 then
begin d3 := d3 + 1; s3 := s3 + a[i]; end;
s := s + a[i];
end;
writeln('trung binh cong cac phan tu : ', (s/n):2:1);
writeln('trung binh cong phan tu duong : ', (s2/d2):2:1);
writeln('trung binh cong cac phan tu am : ', (s3/d3):2:1);
readln
end.
