Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Nguyễn Lan Anh

Câu a : Dãy A gồm n số nguyên được nhập từ bàn phím. Hiển thị các số chia hết cho 2 (3, 5, 7, 9,..) trong dãy A.

Phía sau một cô gái
20 tháng 4 2023 lúc 20:57

program DemSoChan;

var

     A: array of Integer;

     n, i: Integer; 

begin

     Write('Nhap so phan tu cua day A: ');

     Readln(n); 

     SetLength(A, n);

     for i:= 0 to n-1 do

     begin

          Write('A[', i, ']= ');

          Readln(A[i]);

     end;

     Writeln('Cac so chan trong day A la:');

     for i:= 0 to n-1 do

     begin

          if A[i] mod 2 = 0 then

               Write(A[i], ' ');

     end;

end.


Các câu hỏi tương tự
Trần Hà Thư
Xem chi tiết
minh dương
Xem chi tiết
Minh
Xem chi tiết
Ly Khánh
Xem chi tiết
Huyền Trần
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
Uchiha Obito
Xem chi tiết
Trần Minh Trí
Xem chi tiết
Phạm Minh
Xem chi tiết