Ôn tập cuối năm

YD

Viết chương trình nhập vào dãy số A gồm N phần tử (N nhập từ bàn phím) In ra màn hình các phân tử lag số chẵn?

PG
4 tháng 5 2023 lúc 20:48

program HienThiSoChan;

var

      N, i: integer;

      A: array[1..50] of integer;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      writeln('Nhap day so A gom ', N, ' phan tu:');

      for i := 1 to N do

      begin

            readln(A[i]);

            if A[i] mod 2 = 0 then

            begin

                  writeln('Phan tu thu ', i, ' la so chan: ', A[i]);

            end;

      end;

      readln;

end.

Bình luận (0)

Các câu hỏi tương tự
PL
Xem chi tiết
NT
Xem chi tiết
NM
Xem chi tiết
VV
Xem chi tiết
DL
Xem chi tiết
VA
Xem chi tiết
BD
Xem chi tiết
TT
Xem chi tiết
HN
Xem chi tiết