Cho mảng A gồm 10 phần tử thuộc kiểu Nguyên Viết hàm tính giá trị trung bình của mạng a
Help me????????????????????????

Question

Cho mảng A gồm 10 phần tử thuộc kiểu Nguyên Viết hàm tính giá trị trung bình của mạng a Help me????????????????????????

tuyetnhung · Answer

Program BaiTap;

Uses crt;

Type mang = array[1..10] of longint;

Var A: mang;
i: longint;

Function Average(A: mang): extended;
Var i, sum: longint;
Begin
sum := 0;
For i:=1 to 10 do
sum := sum + A[i];
exit(sum / 10);
End;

Begin
Clrscr;
For i:=1 to 10 do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
End;

Write(‘TBC = ‘,Average(A) : 0 : 2);
Readln
End.

lanngocha · Answer

program mang;

var i:longint;

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

function tb:real;

begin

tb:=0;

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

tb:=tb/10;

end;

begin

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

write(tb:10:1);readln;

end.

0 bình luận về “Cho mảng A gồm 10 phần tử thuộc kiểu Nguyên Viết hàm tính giá trị trung bình của mạng a Help me????????????????????????”