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
uses crt;
type mang=array[1..1000000] of longint;
var n,i:longint; a:mang;
{—Chuong-trinh-con—}
function sl(var a:mang; i:longint):boolean;
begin
sl:=true;
if a[i] mod 2=1 then sl:=true else sl:=false;
end;
{—Chuong-trinh-chinh—}
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘); readln(a[i]);
end;
for i:=1 to n do
if sl(a,i) then write(a[i],’ ‘); writeln;
readln
end.
Program Tin_hoc;
Uses crt;
Var M: array[1..10000000] of longint;
i, n: longint;
Function kt(x: longint): boolean;
Begin
kt:=false;
If x mod 2 = 1 then kt:=true;
End;
Begin
Writeln(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘M[‘,i,’]=’); Readln(M[i]);
End;
Write(‘Cac phan tu la so le la: ‘);
For i:=1 to n do
If kt(M[i])=true then write(M[i],’ ‘);
Readln
End.