Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt
Var A:array[1..100] of longint;
s:real;
i,n:longint;
Begin
Clrscr;
s:=0;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
s:=s+A[i];
end;
write('Trung binh cong cua day so: ',s/n:0:2);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
uses crt;
var i,n,s:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
s:=s+a[i];
end;
write('trung binh cong cua day so la:',s/n:4:2);
readln;
end.
(mong dc 5*+hay nhất)
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin