Nhập N và dãy A1,A2-AN đưa ra vị trí của các số chẵn trong dãy Làm giúp m với cái này còn có cả viết thuật toán và vẽ các hình nữa)

0 bình luận về “Nhập N và dãy A1,A2-AN đưa ra vị trí của các số chẵn trong dãy Làm giúp m với cái này còn có cả viết thuật toán và vẽ các hình nữa)”

1. program Min;
   uses crt;
   var i,n:integer;
       A:array[1..200] of integer;
   begin
      clrscr;
      writeln(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
         begin
            writeln(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
         end;
       writeln(‘Vi tri cua cac so chan trong day la: ‘);
       for i:=1 to n do
          if (A[i] mod 2 = 0) then write(i:6);
       writeln;
       readln
   end.

   Em kiểm tra lại chương trình nha 😀

   Bình luận