viết phương trình nhập vào dãy của nhập vào dãy số và in ra màn hình các số lẻ số chẵn của dãy

0 bình luận về “viết phương trình nhập vào dãy của nhập vào dãy số và in ra màn hình các số lẻ số chẵn của dãy”

1. Program Tinh_tong;
   Uses crt;
   Var i,n,dem: integer;
         a:array[1..100] of integer;
         S:real;
   begin
     write(‘nhap n=’); readln(n);<br />  for i:=1 to n do<br />      begin<br />        write(‘a[‘,i,’]=’); readln(a[i]);
          end;
     dem:=0;
     for i:=1 to n do 
     if a[i] mod 2 = 0 then dem:=dem+1; S:=S+a[i];
    write(‘so phan tu chan cua day la:’);
    write(‘ tong cac so chan la:’, S:8:2);
   readln
   end.

   xin 5* + câu trả lời hay nhất

   Bình luận

2. program chan_le;

   uses crt;

   var A:array [1..500] of integer;

         n,i: integer

   Begin

            write(‘Nhap so phan tu cua day: ‘); readln(n);

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

            end;

            write(‘Cac so le: ‘);

            for i:=1 to n do

            if A[i] mod 2<>0 then write(A[i],’  ‘);

            writeln;

            write(‘Cac so chan: ‘);

            for i:=1 to n do

            if A[i] mod 2=0 then write(A[i],’  ‘);

            readln

   End.

   Bình luận