cho dãy số nguyên gồm n phần tử được nhập vào từ bàn phím. Tính trung bình cộng các số dương.
2 câu trả lời
program Tb;
uses crt;
var A:array[1..1000] of integer;
i,n:integer;
Tb:real;
begin clrscr;
write('Nhap so phan tu n: '); 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 Tb:=(Tb+A[i])/n;
writeln ('Trung binh cong cac so duong la:', Tb:4:2);
readln;
end.
Học tốt!
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];
Tbc:= S/d;
end;
Writeln ('Trung binh cong cac so duong trong day la:', Tbc:8:3);
Readln
End.
Câu hỏi trong lớp
Xem thêm
