Viết chương trình nhập vào 1 mảng số nguyên gồm n phần tử. Tính trung bình cộng các phần tử trong mảng?
2 câu trả lời
Program Hotboy;
Uses crt;
Var A:array[1..100] of integer;
D1,n: integer;
S:real;
Begin
Clrscr;
s:=0;
Write('nhap so n');
For i:=1 to n do
Write('A[',i,']');
Readln(A[i]);
For i:=1 to n do
inc(D1);
S:=S+A[i];
Write('Trung binh cac so la',S/D1);
Readln
End.
:program trung_binh_cong;
uses crt;
var n , i :interger;
TBC : real;
A:array[1....100]of integer;
begin
writeln('hay nhap do dai cua day so , n :');readln(n);
writeln ('nhap cac phan tu cua day so:');
For i:=1To n do
begin
writeln ('a[',i,']='); readln (a[i]);
end;
tbc:=0;
for i:=1 to n do begin
tbc := a[i]:=(a[i]+i)/n ;
end;
wrriteln ('trung binh cong la ', tbc );
readln
end.
Câu hỏi trong lớp
Xem thêm