Question

Viết chương trình cân nặng của các bạn trong lớp và tính trung bình cộng của 10 bạn đó sử dụng biến mảng

Answer 1

Program HOC24;

var i,n: integer;

tb: real;

a: array[1..10] of real;

begin

for i:=1 to n do

begin

write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);

end;

tb:=0;

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

write('Trung binh cong cua 10 ban do la: ',tb/10:1:2);

readln

end.

Answer 2

uses crt;

var i,n: integer;

tb: real;

a: array[1..10] of real;

begin

clrscr;

n:=10;

for i:=1 to n do

begin

write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);

end;

tb:=0;

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

write('Trung binh cong cua 10 ban do la: ',tb/10:1:2);

readln

end.

Answer 3

mình ko biết