Viết chương trình nhập dãy số in ra các số lẻ ra màn hình, tính tổng của các số lẻ có trong danh sách. MÌnh đang cần gấp ạ, Cảm ơn!

0 bình luận về “Viết chương trình nhập dãy số in ra các số lẻ ra màn hình, tính tổng của các số lẻ có trong danh sách. MÌnh đang cần gấp ạ, Cảm ơn!”

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. Uses crt;

   Var A:array[1..1000] of  integer;

          S,n,i: integer;

   Begin

   Clrscr;

   Write(‘Nhap cac phan tu:’); readln(n);

   For i:=1 to n do readln (A[i]);

   S:=0;

   For i:=1 to n do 

   If A[i] mod 2= 1 then S:=S+A[i];

   For i:= 1 to n do if A[i] mod 2=1 then write(A[i]:4);

   Writeln(A[i]);

   Readln

   End.

   Bình luận