Viết 1 chương trình nhập vào 1 mảng số nguyên không quá 100 số hạng xuất ra màn hình :số lẻ ,các số âm,các số chia hết cho 3,tính tổng các số chẵn trong mảng

ngoclanngo166

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 28 xem

1 trả lời

Thích Trả lời

anhsao.1803.as

uses crt;
var i,n,s:longint;
a : array [1..100] of longint;
begin
clrscr;
write('Nhap n : '); read(n);
for i:= 1 to n do
begin
write('Nhap a[',i,'] : ');readln(a[i]);
end;
writeln('Cac so le : ');
for i:=1 to n do
if a[i] mod 2 =1 then writeln(a[i])
else s:=s+a[i];
writeln('Tong cac so chan la : ',s);
writeln('Cac so am : ');
for i:=1 to n do if a[i] < 0 then writeln(a[i]);
writeln('Cac so chia het cho 3 : ');
for i:= 1 to n do
if a[i] mod 3 = 0 then writeln(a[i]);
readln;
end.

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

Ananh14

var n,i,s: longint;
a: array [1..100] of longint;
begin
write('Nhap n : '); read(n);
for i:= 1 to n do
begin
write('a[',i,']'); read(a[i]);
end;
writeln('Cac so le la: ');
for i:=1 to n do
if not a[i] mod 2 = 0 then write(a[i],' ')
else s:=s+a[i];
writeln('Cac so am la: ');
for i:=1 to n do if a[i] < 0 then write(a[i],' ');
writeln('Cac so chia het cho 3 la: ');
for i:= 1 to n do
if a[i] mod 3 = 0 then write(a[i],' ');

writeln('Tong cac so chan la : ',s);
readln;
end.

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

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

Cho a= 8, b= 5, hb= 4 căn 3. Tính c Giải giúp mình ạ, cảm ơn.

Tại sao cơ chế kem đánh răng chứa clo làm cho răng trở nên bền chắc và trắng ?

Tinh ( 121 - 2 ² ) . ( 121 - 3 ² ) .........(121 - 121 ² ) Tim x : 3x - 15 = 25 - 5x

Talk about the three most important things in your life and describe them in detail ( mik sẽ chọn câu trả lời hay và ngữ pháp đúng)

Giúp em đặt những câu hỏi về địa phương với

a) Cho A=2^2000 - 1. Chứng minh A chia hết cho 5 b) Tìm nghiệm nguyên (x;y) của phương trình sau: 2x² – 2.xy = 5x + y – 3 Mọi nguời giúp em câu a với ạ

Độ dài ba tấm vải xanh, đỏ, trắng là 84m. Tổng số mét vải đỏ và vải xanh hơn số mét vải trắng là 36m. Số mét vải đỏ dài hơn số mét vải xanh là 24m. Hỏi tấm vải xanh dài bao nhiêu mét?

Giúp em bài này với ạ! EM cảm ơn! Một vật có trọng lượng riêng d= 4000N/m3 thả trong 1 cốc nước có trọng lượng riêng d'= 10 000N/m3 . Hỏi vật bị chìm bao nhiêu phần trăm thể tích của nó ở trong nước

∆ABC cân tại A. Lấy D € AB, E € AC sao cho AD=AE a. CM DE// BC b. Gọi H là trung điểm của BC CM: AH là tpg của góc BAC AH là đường trung trực của BC c. DE vuông góc với AH Giúp mk câu c ghi rõ cách giải chi tiết dùm nhe 🙂

Cho tam giác ABC vuông tại A, đường cao AH a) Dựa vào định lí pytago ghi lại hệ thức đối với: tam giác ABC, tam giác AHB, tam giác AHC b) Chứng minh AB.AC=BC.AH GIÚP VỚI , Tks

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