Viết chương trình nhập vào mạng A gồm N phần tử (N nhập từ bàn phím) câu a: in ra các số lẻ ,câu b: in ra tổng phần tử chẵn ,câu c: in ra các số nguyên tố

joscasta2005

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 23 xem

1 trả lời

Thích Trả lời

vuhagiang212004

Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
n,i,s: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod i = 0 then exit(false);
exit(true);
End;

Begin
Clrscr;
Write('Nhap so luong phan tu: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;

s:=0;
Write('Cau a: Xuat ra cac phan tu la so le: ');
For i:=1 to n do
Begin
If A[i] mod 2 = 0 then s:=s+A[i];
If A[i] mod 2 = 1 then Write(A[i],' ');
End;

Writeln;

Write('Cau b: Tong cac phan tu la so chan: ',s);
Writeln;

Write('Cau c: Xuat ra cac so nguyen to: ');
For i:=1 to n do
If ngto(A[i]) then Write(A[i],' ');
Readln
End.

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

hunter24

Program CTNMT;

Uses crt;

Var n,i,dem: longint;

A: array [1..1000] of longint;

Begin

Writeln('Ban hay N'); Readln(n);

For i:=1 to n do

Begin

Writeln('Nhap so thu ',i); Readln(a[i]);

End;

Writeln('In ra mang:');

For i:1 to n do Write(a[i]:5);

Writeln;

Writeln('In ra so chan trong mang');

For i:= 1 to n do

Begin

If (a[i] mod 2) = 0 then Write(a[i]:5)

If a[i] < 0 then dem:= dem +1;

End;

Writeln('so so nguyen am la: ',đem);

Readln;

End.

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

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

Một hiệu sách có bán hai loại sách :hướng dẫn học tốt môn toán lớp 10 và hướng dẫn học tốt môn ngữ văn lớp 10. Trong một ngày của tháng năm năm 2016 hiệu sách bán được 60 cuốn mỗi loại trên theo giá thu được số tiền là 3.300.000 đồng và lại được 420.000 đồng. Biết mỗi cuốn hướng dẫn học tốt môn toán lớp 10 lãi 10% giá bìa, mỗi cuốn hướng dẫn học tốt môn ngữ văn lớp 10 lãi 15% giá bìa. Hỏi giá bìa của mỗi cuốn sách đó là bao nhiêu.

mọi người có thể giúp em viết đoạn văn ngắn 5,7 câu về chủ đề trường lớp có sử dụng từ láy từ mượn danh từ riêng và cụm danh từ đc ko ạ

tôi muốn viết 1 kịch bản về 1 ông giám đốc lãnh đạo vì quá kém cõi đã làm công ty phá sản

Chứng minh rằng nếu hai cạnh và trung tuyến thuộc cạnh thứ ba của tam giác này bằng hai cạnh và trung tuyến thuộc cạnh thứ ba của tam giác kia thì hai tam giác đó bằng nhau

cho biết 40 cụm từ tiếng anh đồng nghĩa, trái nghĩa với nhau . mik cần gấp . thanks

Trong tế bào nước đc chứa ở đâu

Hãy tưởng tượng mình gặp gỡ và trò chuyện với người lính lái xe trong tác phẩm “Bài thơ về tiểu đội xe không kính” của Phạm Tiến Duật. Kể lại cuộc gặp gỡ và trò chuyện đó. (Tự làm nha)

Cho 44 g NaOH vào 39,2 g H3PO4 sau pư hoàn toàn, cô cạn dd thu được m(g) muối a, ptpư b, m ?

E=1\1*3+1\3*5+1\5*7+1\7*9+1\9*11

HÃy tưởng tượng mình gặp gỡ và trò truyện vs bác sĩ đặng thuỳ trâm (mọi người giúp mình ngày mai mình có tiết kiểm tra)

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