Viết chương trình nhập vào mảng A gồm N phần tử thuộc kiểu Nguyên. Viết hàm và thủ tục kiểm tra số lẻ của mảng A. hãy In ra các phần tử là số lẻ của mảng A
Viết chương trình nhập vào mảng A gồm N phần tử thuộc kiểu Nguyên. Viết hàm và thủ tục kiểm tra số lẻ của mảng A. hãy In ra các phần tử là số lẻ của mảng A
program so_le;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
{—Ham-so-le—}
function ktsl(k:integer):boolean;
begin
if k mod 2=1 then ktsl:=true else ktsl:=false;
end;
{—Chuong-trinh-chinh—}
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 ktsl(A[i]) then write(A[i],’ ‘);
readln;
end.
uses crt;
var a: array[1..100] of integer;
i,n: integer;
procedure nhap;
var a: array[1..100] of integer;
i,n: integer;
begin
write (‘nhap so luong PT: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap PT thu ‘,i,’: ‘); readln (a[i]);
end;
end; {chỗ này 2 cái end; luôn nha}
function kt(n: integer): integer;
begin
if n mod 2=0 then kt:=false
else if n mod 2<>0 then kt:=true;
end;
begin
clrscr;
nhap;
writeln (‘cac so le trong day: ‘);
for i:=1 to n do if kt(a[i])=true then write (a[i],’ ‘);
readln;
end.