Lập chương trình nhập 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

Question

aihong · Answer

Bạn xem h&igrave;nh

cattien · Answer

program trung_binh;

uses crt;

type kmang=array[1..10] of integer;

var A:kmang;

i:integer;

{—Ham-trung-binh—}

Function trung_binh(A:kmang):real;

var j,t:integer;

begin

t:=0;

for j:=1 to 10 do t:=t+A[j];

trung_binh:=t/2;

end;

{—Chuong-trinh-chinh—}

BEGIN

clrscr;

for i:=1 to 10 do

begin

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

end;

write(‘Gia tri trung binh cua mang A la: ‘,trung_binh(A):0:2);

readln;

end.

0 bình luận về “Lập chương trình nhập 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”