Mn giúp e với ạ Viết CT nhập vào mảng một chiều tìm số lẻ đầu tiên trong mảng với ạ ( lm bằng free IDE Pascal)

0 bình luận về “Mn giúp e với ạ Viết CT nhập vào mảng một chiều tìm số lẻ đầu tiên trong mảng với ạ ( lm bằng free IDE Pascal)”

1. program phuongt;

   uses crt;

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

           i, n: intger;

   begin

            clrscr;

            write(‘Nhap n = ‘); readln(n);

            for i:=1 to n do 

            begin

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

            end;

            write(‘So le dau tien trong mang la: ‘);

            for i:=1 to n do

            if A[i] mod 2 = 1 then 

            begin

                      write(A[i]);

                      break;

            end;

            readln

   end.

   Bình luận

2. Bài mình chạy rất nhanh nha.

   program soledautien;

   uses crt;

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

         n,i:byte;

         ptu:integer;

   begin

        clrscr;

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

        ptu:=0;

        for i:=1 to n do

             begin

                  write(‘Phan tu thu ‘,i,’: ‘);  readln(A[i]);

                  if (ptu=0) and (A[i] mod 2=0) then ptu:=A[i];

             end;

        write(‘Phan tu le dau tien la: ‘,ptu);

        readln;

   end.

   Bình luận