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

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

1. uses crt;
   var A:array[1..1000] of integer;
       N,i,tong:integer;
   begin
      clrscr;
      write(‘Nhap N: ‘); readln(N);
      for i:=1 to N do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i] mod 2 = 1 then tong:=tong+A[i];
      end;
      writeln;
      for i:=1 to N do if A[i] mod 2 = 1 then write(A[i]:4);
      writeln;
      write(‘Tong cac so le la: ‘,tong);
      readln
   end.

   Bình luận

2. 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.

   Bình luận