VCT nhập mảng số nguyên gồm n số. In dãy số vừa nhập. KT và in ra các số lẻ.

0 bình luận về “VCT nhập mảng số nguyên gồm n số. In dãy số vừa nhập. KT và in ra các số lẻ.”

1. program Mang;

   uses crt;

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

         n,i: integer;

   Begin

            clrscr;

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

            for i:=1 to n do

            begin

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

            end;

            write(‘Day vua nhap: ‘);

            for i:=1 to n do write(A[i],’  ‘);

            writeln;

            write(‘Cac so le trong day: ‘);

            for i:=1 to n do

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

            readln

   End.

   Bình luận

2. Uses Crt;
   Var a:array[1..1000] of longint;
   i,n:integer;
   Begin
   Clrscr;
   Repeat
   Write(‘Nhap so ptu N vao: ‘); Readln(n);
   Until n>0;
   For i:= 1 to n do
   Begin
   Write(‘Nhap a[‘,i,’] vao:’); Readln(a[i]);
   End;
   Write(‘Cac so vua nhap la:’);
   For i:= 1 to n do
   begin
   Write(a[i]:2);
   End;
   Writeln;
   Write(‘Cac so le trong day so do la: ‘);
   For i:=1 to n do If a[i] mod 2 <>0 then
   Begin
   write(a[i]:2);
   End;
   If a[i] mod 2=0 then write(‘Khong co so le nao het!’);
   Readln
   End.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!Đa tạ trước :333
   *p/s: Hỏi đáp, comment bên dưới!

   Bình luận