Tin học 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 13/07/2021 By Autumn 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; readlnend. Trả lời
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. Trả lời