Viết đoạn chương trình nhập vào mảng số nguyên ,in ra các số là số chẵn của mảng ( mảng số nguyên với số lượng phần tử là tùy chọn ). Giúp mình với ạ
Viết đoạn chương trình nhập vào mảng số nguyên ,in ra các số là số chẵn của mảng ( mảng số nguyên với số lượng phần tử là tùy chọn ). Giúp mình với ạ
Program BTH;
uses crt;
var a:array[1..100000] of longint;
i,n,s:longint;
Begin
clrscr;
Write(‘Nhap n: ‘);readln(n);
For i:=1 to n do
Begin
write(‘a[‘,i,’]: ‘);readln(a[i]);
end;
write(‘So chan co trong day la: ‘);
For i:=1 to n do
If a[i] mod 2=0 then write(a[i],’ ‘);
readln;
end.
program oken;
uses crt;
var a: array [1..10000] of longint;
i,n,chan: longint;
begin
clrscr;
write(‘nhap so luong phan tu cua mang’); 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.