viết chương trình nhập vào 1 dãy số nguyên n (n >= 100) in ra màn hình dãy số chẵn giúp mik với mn mai mik kt cuối hk r
2 câu trả lời
uses crt;
var X : array[1 .. 100] of integer;
i, n : byte;
begin
clrscr;
write('Nhap so n : '); readln(n);
for i := 1 to n do
begin write('Nhap so thu ', i ,' : ');
readln(X[i]); end;
write('Cac so chan : ');
for i := 1 to n do
if X[i] mod 2 = 0 then write(X[i],' ');
readln
end.
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n: ');readln(n);
Write('Cac so chan la: ');
for i:=1 to n do if i mod 2=0 then write(i,',');
readln
end.
