Viết chương trình Tính trung bình cộng các số dương trong dãy số nguyên nhập từ bàn phím
2 câu trả lời
Progam trung_binh_cong
uses crt;
var a,b,c:real;
begin
clrscr
write(nhap so a,b,c=',)readln(a,b,c)
writeln('trung binh cong cua ba so=',(a+b+c)/3;
readln;
end
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 cua day la:', Tbc:8:3);
Readln
End.
Câu hỏi trong lớp
Xem thêm
