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

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.