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

phthaoyds

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

toandatbmt1234

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.

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

ductran24

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.

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

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

đặt hộ mik câu dùng cụm chủ vị để mở rộng cụm tính từ vs

Vẽ đậu mầm nằm lăn ra đất mệt mỏi Đố tìm ra đc cái mắt ngừi dạy tou vẽ ;)

có ai muốn làm bạn thân hoặc cj e của tui thì viết chữ này nha viết chữ này : mãi vẫn là cj em và ko tách rời

Chất nào sau đây có nhiệt độ sôi cao nhất : A. Andehit axetic B. Etan C. Axit fomic D. Ancol etylic

VI- Use the given words to write complete sentences. Don't use contractions. 1. I/ agree/ the idea/ that robots/ be/ powerful/ future./ 2. Firstly,/ robots/ can/ do/ same work/ for/ 24 /hour/ without tiredness. 3. Secondly,/ robots/ become/ very smart/ and do/ more complicated things/ like/ fly a plane/ and/ play sports. 4. Finally,/ they/ can/ do/ some/ job/ better/ humans. 5. For/ above reasons,/ I/ believe/ that robots/ become/ very powerful/ and we must/ be/ careful

Nhận dạng thực vật xếp chúng vào các nhóm Nhận xét sự phân bố của thực vật quanh khu vực mình sống

Children go to this place every morning.they learn and Have lessons here.nó là nơi nào

Phân số nào sau đây bé hơn 1/2: A. 3/6 B. 3/8 C. 6/11 D. 6/5 Phân số nào dưới đây lớn hơn 1/2 : A. 3/6 B . 3/8 C. 6/11 D. 1/5

vẽ mầm cầm dao, nhớ tông màu nl: muốn làm người văn minh có ngững câu từ văn minh mà ko ai cho làm

Tl trong 15p thôi ạ Bài ktra của e

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