Tin học Viết chương trình nhập 1 mảng n số nguyên . In ra màn hình các phần tử có giá trị là số chẵn trên cùng 1 dòng và số lẻ trên cùng 1 dòng khác. Tính tru 22/07/2021 By Autumn Viết chương trình nhập 1 mảng n số nguyên . In ra màn hình các phần tử có giá trị là số chẵn trên cùng 1 dòng và số lẻ trên cùng 1 dòng khác. Tính trung bình cộng các số lẻ
program bt;uses crt;var a: array[1..100] of integer; i, n, tong, soluong: integer; TBC: real;begin clrscr; write(‘Nhap n:’); readln(n); for i := 1 to n do begin write(‘Nhap a[‘, i ,’]=’); readln(a[i]); end; for i:= 1 to n do if a[i] mod 2 = 0 then write(a[i]); writeln; tong:= 0; soluong:= 0; TBC:= 0; for i:= 1 to n do if a[i] mod 2 <> 0 then begin write(a[i]); tong:= tong + a[i]; soluong:= soluong + 1; end; TBC:= tong/ soluong; writeln(‘Trung binh cong cac so le trong mang la=’, TBC :3:2); readlnend. Trả lời