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 16/07/2021 Bởi Eva 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
program bt; var i:byte begin writeln (‘cac so tu 1 toi 20’); for i:= 1 to 20 do writeln (i); readln end; vote cho minh 5 sao với Bình luận
program bt; var a:array[1..9999] of longint; n,tb,dem: longint; writeln (‘nhap n’); readln (n); for i:= 1 to n do begin writeln (‘nhap pt thu ‘ , i, ” ); readln (a[i]); end; tb:= 0; for i:=1 to n do begin tb := tb+a[i] ; dem:= dem+1; end; tb:= tb/dem; writeln (‘gia tri tb la’,tb); readln end. Nho vote cho minh nha Bình luận
program bt;
var i:byte
begin
writeln (‘cac so tu 1 toi 20’);
for i:= 1 to 20 do
writeln (i);
readln
end;
vote cho minh 5 sao với
program bt;
var a:array[1..9999] of longint;
n,tb,dem: longint;
writeln (‘nhap n’); readln (n);
for i:= 1 to n do
begin
writeln (‘nhap pt thu ‘ , i, ” );
readln (a[i]);
end;
tb:= 0;
for i:=1 to n do
begin
tb := tb+a[i] ;
dem:= dem+1;
end;
tb:= tb/dem;
writeln (‘gia tri tb la’,tb);
readln
end.
Nho vote cho minh nha