viết chương trình nhập vào mảng số nguyên gồm n phần tử. In ra màn hình các phần tử là số chẵn, các phần tử là số lẻ
viết chương trình nhập vào mảng số nguyên gồm n phần tử. In ra màn hình các phần tử là số chẵn, các phần tử là số lẻ
By Reagan
By Reagan
viết chương trình nhập vào mảng số nguyên gồm n phần tử. In ra màn hình các phần tử là số chẵn, các phần tử là số lẻ
uses crt;
var m: array[1..100] of integer;
i,n: integer;
begin
clrscr;
write (‘nhap so luong phan tu: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
end;
writeln (‘cac so chan: ‘);
for i:=1 to n do if a[i] mod 2=0 then write (a[i]:3);
writeln (‘cac so le: ‘);
for i:=1 to n do if a[i] mod 2<>0 then write (a[i]:3);
readln;
end.
ĐÂY Ạ
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
end;
writeln (‘cac so chan trong day: ‘);
for i:=1 to n do if a[i] mod 2=0 then write (a[i]:3);
writeln (‘cac so le trong day: ‘);
for i:=1 to n do if a[i] mod 2<>0 then write (a[i]:3);
readln;
end.