Xem Viết chương trình tính trung bình cộng các số của dãy số gồm n số nhập từ bàn phím 2024
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
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.
Bạn đang tìm hiểu bài viết: Viết chương trình tính trung bình cộng các số của dãy số gồm n số nhập từ bàn phím 2024
HỆ THỐNG CỬA HÀNG TRÙM SỈ QUẢNG CHÂU
Điện thoại: 092.484.9483
Zalo: 092.484.9483
Facebook: https://facebook.com/giatlathuhuongcom/
Website: Trumsiquangchau.com
Địa chỉ: Ngõ 346 Nam Dư, Trần Phú, Hoàng Mai, Hà Nội.
