Viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên đc nhập từ bàn phím và in ra dãy số nguyên đó
Ko chép mạng
Viết chương trình sử dụng biến mảng để tính giá trị trung bình của n số nguyên đc nhập từ bàn phím và in ra dãy số nguyên đó
Ko chép mạng
uses crt;
var i,n,s:longint;
a:array[1..1000000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln(s/n:0:2);
for i:=1 to n do write(a[i],’ ‘);
readln
end.
Xin hay nhất+vote5s+1tym
Chúc bạn học tốt
var a:array[1..100] of longint;
n,i:longint;
s:real;
begin
write(‘nhap so luong phan tu ‘);read(n);
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
writeln(a[i],’ ; ‘);
writeln(‘trung binh la: ‘,s:6:2);
readln;
end.