Mô tả thuật toán tính trung bình cộng của các số lớn hơn 0 trong dãy A={a1;a2;....;an}
2 câu trả lời
Bước 1: Nhập n và dãy A[1..n]
Bước 2: s ← 0; pt ← 0;
Bước 3: i ← 1 to n do
Nếu A[i]>0 thì s ← s + A[i]; pt ← pt + 1
Bước 4: tbc ← s/pt
Bước 5: Xuất kết quả (tbc)
program Tinh_trung_binh_cong;
uses crt;
var n, dem : integer;
a, TB : real;
begin clrscr;
dem:= 0; TB:=0;
write('Nhap so cac so can tinh n = '); realn(n);
write dem < n do
begin dem:= dem + 1;
write('Nhap so thu ', dem,' = '); realn(a);
TB:= TB + a;
end;
TB:= TB/n;
writeln('Trung binh cua ', n, ' so la = ', TB:10:3);
writeln('Nhan Enter de thoat ...');
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
