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

0 bình luận về “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”

1. 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);
     readln
   end.

   Bình luận