KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Nêu thuật toán . Tính giá trị trung bình các dãy số-help me!!!!
By Josephine
Nêu thuật toán . Tính giá trị trung bình các dãy số….help me!!!!
uses crt; var n,i ,tong,tb:integer; A,b:array[1..100] of integer; begin clrscr; tong:=0; writeln(‘nhap n’); readln(n); for i:=1 to n do begin writeln(‘nhap A[‘,i,’]’); readln(A[i]); tong:=tong+a[i]; end;
uses crt;
var n,i ,tong,tb:integer;
A,b:array[1..100] of integer;
begin
clrscr; tong:=0;
writeln(‘nhap n’);
readln(n);
for i:=1 to n do
begin
writeln(‘nhap A[‘,i,’]’);
readln(A[i]); tong:=tong+a[i];
end;
tb:=tong /n;
writeln(‘gia tri trung binh cua day la ‘, tong);
readln;
end.