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}

0 bình luận về “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}”

1. 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)

   Bình luận

2. 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.

   Bình luận