Nhập dãy số in ra màn hình trung bình cộng của dãy, trung bình cộng các số chẵn 17/07/2021 Bởi Maya Nhập dãy số in ra màn hình trung bình cộng của dãy, trung bình cộng các số chẵn
progam Day; use crt; var A:array [1..500] of integer; n,i,d: integer; TB.TBc: real; Begin clrscr; write(‘Nhap so phan tu: ‘); readln(n); for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(A[i]); TB:=TB+A[i]; if A[i] mod 2=0 then begin TBc:=TBc+A[i]; d:=d+1; end; end; TB:=TB/n; TBc:=TBc/d; writeln(‘Trung binh cong cua day = ‘,TB:2:2); write(Trung binh cong cac so chan = ‘,TBc:2:2); readln End. Bình luận
progam Day;
use crt;
var A:array [1..500] of integer;
n,i,d: integer;
TB.TBc: real;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
TB:=TB+A[i];
if A[i] mod 2=0 then
begin
TBc:=TBc+A[i];
d:=d+1;
end;
end;
TB:=TB/n;
TBc:=TBc/d;
writeln(‘Trung binh cong cua day = ‘,TB:2:2);
write(Trung binh cong cac so chan = ‘,TBc:2:2);
readln
End.
có thể sai ở dấu cách cuối sai thì sửa hộ nha