Question

viết chương trình tính trung bình của dãy số gồm n phần tử​ . giải giúp mình với.😊

​

​

​

​

​

​

​

​

​

Answer 1

uses crt;

var i, n, s: integer;

tb: real;

a: array [1..100] of integer;

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

s:= s + a[i];

tb:= s/n;

writeln(' trung binh cua day so la:', tb:4:2);

readln

end.

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do

Answer 2

uses crt;

var i, n, s: integer;

tb: longint;

a: array [1..100] of integer;

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do

s:= s+a[i];

tb:= s/n;

writeln(' trung binh cua day so la: ', tb:4:2);

readln

end.