Gõ chương trình theo lệnh for…do bài 1 Bài thực hành 6 tr 68 22/07/2021 Bởi Emery Gõ chương trình theo lệnh for…do bài 1 Bài thực hành 6 tr 68
program tinh_trung_binh; uses crt; var X:array[1..100] of integer; n,i,t:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); t:=0; for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(X[i]); t:=t+X[i]; end; write(‘Trung binh cong cac so trong day la: ‘,t/n:2:2); readln; end. Bình luận
đây bạn
program tinh_trung_binh;
uses crt;
var X:array[1..100] of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(X[i]);
t:=t+X[i];
end;
write(‘Trung binh cong cac so trong day la: ‘,t/n:2:2);
readln;
end.