viết chương trình nhập vào một dãy số in ra màn hình các phần tử chẵn có trong dãy
viết chương trình nhập vào một dãy số in ra màn hình các phần tử chẵn có trong dãy
By Katherine
By Katherine
viết chương trình nhập vào một dãy số in ra màn hình các phần tử chẵn có trong dãy
program so_chan;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua day: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],’ ‘);
readln;
end.
Program so_chan;
Var A:array[1..100] of integer;
n,i: integer;
Begin
Write(‘Nhap n: ‘);Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap A[‘,i,’]= ‘); readln(A[i]);
End;
For i:=1 to n do
If A[i] mod 2=0 then write(A[i],’ ‘);
Readln;
End.