Bạn nào giả đầu đủ bài này giúp mình với mình cảm ơn nhiều.
Tính trung bình cộng các giá trị của mảng?
0 bình luận về “Bạn nào giả đầu đủ bài này giúp mình với mình cảm ơn nhiều. Tính trung bình cộng các giá trị của mảng?”
uses crt; var a:array[1..1000] of integer;i,n:integer;tc:longint;tbc:real; BEGIN clrscr; write(‘Nhap n: ‘);readln(n); for i:=1 to n do begin Write(‘Nhap phan tu thu ‘,i,’ : ‘);readln(a[i]); end; for i:=1 to n do tc:=tc+a[i]; tbc:=tc/n; writeln(‘Trung binh cong cac phan tu trong mang la: ‘,tbc:6:3); readln END.
uses crt;
var a:array[1..1000] of integer;i,n:integer;tc:longint;tbc:real;
BEGIN
clrscr;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do begin
Write(‘Nhap phan tu thu ‘,i,’ : ‘);readln(a[i]); end;
for i:=1 to n do
tc:=tc+a[i];
tbc:=tc/n;
writeln(‘Trung binh cong cac phan tu trong mang la: ‘,tbc:6:3);
readln
END.