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

duyenbe

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

hadangphuong3

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.

Vote (0) Phản hồi (0) 2 năm trước

huynhnhibl

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

An và bình có 54 viên bi, biết 1/5 số bi của an bằng1/6 tổng số bi của hai bạn. Hỏi mỗi bạn có bao nhiêu viên bi.

Tại sao khi dong tố hk nên đem đồ vật kim loại bên người

1 người chạy đc 60 m trong 10 giây . tính V của người đó

Có ai rảnh ko ạ???Vào ib vs e ik ạ,chán qué Tiện thể vẽ hộ anime buồn đang khóc

Các bạn hãy nêu các biện pháp bảo vệ và phát triển đa dạng sinh học của địa phương Bạn

Việt nam có bao nhiêu tỉnh thành nêu ra 10 tỉnh thành?

Write about principles: relieving stress (only 70 words below)

Cho hình chữ nhật DEFG, kẻ DM vuông góc với EG tại M. a) C/m tam giác EDM đồng dạng tam giác FGD b)C/m DG.GF=DM.EG c) DM cắt FG tại P.Tính diện tích tam giác DEP biết GP = 1/2 PF và diện tích tam giác GMP là 5 cm2

Vẽ hoạt động của em vào ngày hè

kể tên các con sông ngòi của tỉnh tuyên quang,phân tích giá trị sông ngòi của tỉnh tuyên quang

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến