Viết Chương Trình Tính Trung Bình Cộng Các Số Dương Trong Dãy Số ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

Emma2703
Chưa có nhóm

Trả lời
0
Điểm
890
Cảm ơn
0

Tin Học
Lớp 11
10 điểm
Emma2703 - 22:06:52 05/06/2020

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

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

tencuatonha
Chưa có nhóm

Trả lời
583
Điểm
3314
Cảm ơn
441

tencuatonha

Câu trả lời hay nhất!
05/06/2020

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

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn
Báo vi phạm

- tencuatonha
- Chưa có nhóm
- Trả lời
  583
- Điểm
  3314
- Cảm ơn
  441
cho mik ctlhn nha
- Emma2703
- Chưa có nhóm
- Trả lời
  0
- Điểm
  890
- Cảm ơn
  0
Cái này là tính trung bình cộng số dương ạ?

Đăng nhập để hỏi chi tiết avatar

anhnhu5
Chưa có nhóm

Trả lời
1138
Điểm
32573
Cảm ơn
447

anhnhu5

05/06/2020

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.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy