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 đáng xem nhất 2024

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 đáng xem nhất 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 đáng xem nhất 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

Facebookhttps://facebook.com/giatlathuhuongcom/

WebsiteTrumsiquangchau.com

Địa chỉ: Ngõ 346 Nam Dư, Trần Phú, Hoàng Mai, Hà Nội.