Cho N>0 và dãy số a1, a2,…ăn. hãy tính trung bình cộng của các số lẻ trong dãy số Help me :(( 28/07/2021 Bởi aihong Cho N>0 và dãy số a1, a2,…ăn. hãy tính trung bình cộng của các số lẻ trong dãy số Help me :((
program az; uses Crt; var i,n,a,dem : longint; S,TBC : real; begin clrscr; S := 0; dem := 0; Write(‘Nhap n = ‘); readln(n); For i:=1 to n do begin Write(‘Nhap phan tu thu ‘ , i , ‘ la : ‘); readln(a); If (a mod 2 <> 0) then begin dem := dem + 1; S := S+a; end; end; TBC := S/dem; Write(‘TBC cac so le la : ‘,TBC); readln end. Bình luận
Dãy số liệu thứ 2 có 2 số liệu khác với dãy số liệu 1 là số đứng ở vị trí đầu tiên và số đứng ở vị trí cuối cùng. Tuy nhiên tổng của số đứng đầu tiên + số đứng ở vị trí cuối cùng không thay đổi. Do đó; số trung bình không thay đổi. Vote cho mik 5 sao nha Bình luận
program az;
uses Crt;
var i,n,a,dem : longint;
S,TBC : real;
begin
clrscr;
S := 0;
dem := 0;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
begin
Write(‘Nhap phan tu thu ‘ , i , ‘ la : ‘); readln(a);
If (a mod 2 <> 0) then
begin
dem := dem + 1;
S := S+a;
end;
end;
TBC := S/dem;
Write(‘TBC cac so le la : ‘,TBC);
readln
end.
Dãy số liệu thứ 2 có 2 số liệu khác với dãy số liệu 1 là số đứng ở vị trí đầu tiên và số đứng ở vị trí cuối cùng. Tuy nhiên tổng của số đứng đầu tiên + số đứng ở vị trí cuối cùng không thay đổi. Do đó; số trung bình không thay đổi.
Vote cho mik 5 sao nha