Giúp mình vs ạ mình cần gấp để nộp
Viết chương trình tìm số chẵn trong một dãy số gồm N số, với N được nhập từ bàn phím( có thể dùng chia lấy phần nguyên hoặc chia lấy phần dư
Program BTT; Uses crt; Var A: array[1..1000] of longint; n,i: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
For i:=1 to n do If A[i] mod 2 = 0 then Write(A[i],' '); Readln End.