viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình giá trị trung bình của n số đã nhập (n cũng được nhập tuef bàn phím)

Question

minhthue · Answer

var a:array[1..100] of longint;

n,i:longint;

s:real;

begin

write(‘nhap n’);read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do s:=s+a[i];

s:=s/n;

write(‘trung binh la: ‘,s:6:2);

readln;

end.

Xin ctrl hay nhất để có động lực nha :)))

Bình luận

khanhchau · Answer

program TB;

uses crt;

var A:array [1..500] of integer;

n,i: integer;

TB: real;

Begin

clrscr;

write(‘Nhap n: ‘); readln(n);

for i:=1 to n do

begin

write(‘A[‘,i,’]=’); readln(A[i]);

TB:=TB+A[i];

end;

TB:=TB/n;

write(‘Trung binh ‘,n,’ so vua nhap = ‘,TB:2:1);

readln

End.

0 bình luận về “viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình giá trị trung bình của n số đã nhập (n cũng được nhập tuef bàn phím)”