Làm giúp mình với ạ .Cho mảng A gồm n phần tử thuộc kiểu nguyên .Viết hàm tính giá trị trung bình của mảng A
0 bình luận về “Làm giúp mình với ạ .Cho mảng A gồm n phần tử thuộc kiểu nguyên .Viết hàm tính giá trị trung bình của mảng A”
uses crt; var a:array[1..100] of integer; i,tbc,n:integer; Begin clrscr; write(‘Nhap n: ‘); readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do tbc:=tbc+a[i]; writeln(‘Trung binh cong la: ‘,tbc/n:5:3); readln; end.
uses crt; var a:array[1..100] of integer; i,tbc,n:integer; Begin
clrscr; write(‘Nhap n: ‘); readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do tbc:=tbc+a[i]; writeln(‘Trung binh cong la: ‘,tbc/n:5:3); readln; chúc bạn học tốt!!! + ctlhn
uses crt;
var a:array[1..100] of integer;
i,tbc,n:integer;
Begin
clrscr;
write(‘Nhap n: ‘);
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do tbc:=tbc+a[i];
writeln(‘Trung binh cong la: ‘,tbc/n:5:3);
readln;
end.
uses crt;
var a:array[1..100] of integer;
i,tbc,n:integer;
Begin
clrscr;
write(‘Nhap n: ‘);
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do tbc:=tbc+a[i];
writeln(‘Trung binh cong la: ‘,tbc/n:5:3);
readln;
chúc bạn học tốt!!! + ctlhn