Giúp mình vs mình cảm ơn mọi người nhiều lắm. Viết chương trình nhập vào dãy số nguyên bất kỳ (N >= 30 ) . Tính và in ra màng hình các kết quả sau a) dãy số nguyên vừa nhập b) các số nguyên âm trong dãy vừa nhập c) đếm các số nguyên chia hết cho 2 trong dãy số

nguyennghia06111982

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

hanguyenquoclinh

program bai_giai;

uses crt;

var A:array[1..30] of integer;

n,i,d:byte;

begin

clrscr;

write('Nhap so luong phan tu N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

end;

d:=0;

write('Day vua nhap la: ');

for i:=1 to n do

begin

write('A[i],' ');

if A[i]<0 then d:=d+1;

end;

writeln;

if d=0 then writeln('Khong co so am trong mang')

else begin

write('Cac so am trong mang la: ');

d:=0;

for i:=1 to n do

begin

if A[i]<0 then write(A[i],' ');

if A[i] mod 2=0 then d:=d+1;

end;

writeln;

write('Co ',d,' so chia het cho 2 trong mang');

readln;

end.

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

chienthanhieuhoa

#Chương trình ngắn

#Dễ hiểu

uses crt;
var n,i,b,c:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('n (N >= 30) =');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if a[i]<0 then inc(b);
if a[i] mod 2=0 then inc(c);
end;
write('a) '); for i:=1 to n do write(a[i],' '); writeln;
writeln('b) Co ',b,' so am');
writeln('b) Co ',c,' so nguyen chia het cho 2');
readln
end.

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

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

Công thức:Would/Do you mind (not) +verb-ing 1.Could you lend me some money ?

ĐẶT CÂU HỎI CHO NHỮNG CÂU TRẢ LỜI 1.I often surf the internet in my free time. 2.Yes,I like watching TV in my free time. 3. I watch TV everyday. 4.Because you may get a burn. 5.Because you may cut your self. 6.I'm learning English. 7.He has a sore throat 8.Yer, She likes reading books in her free time 9.They has a headache 10.She often reads comic book in her free time.

E làm vậy đúng k ạ? 2 cách í ạ Chỉ dùng QT nhận biết Fe2(so4)3 , hno3 , ba(no3)2, na2co3 , ba(oh)2 Trích... 5MT + QT--> hóa đỏ Fe2(so4)3 , hno3 (a) --> hóa xanh na2co3 , ba(oh)2 (b) --> k hiện tượng ba(no3)2 2MT (a) + ba(no3)2 --> kết tủa trắng Fe2(so4)3 ---> k ht hno3 CÁCH 1 2MT(b) + fe2(so4)3 --> kết tủa trắng ba(oh)2 --> kht na2co3 CÁCH 2 2MT (b) + hno3 --> sủi bọt khí na2co3 --> kht ba(Oh)2

Viết 1 bài văn lập luận chứng minh về tình bạn chân thành giúp với 😭😭😭😭

một ca nô xuôi dòng từ a đến b mất 4 giờ và ngược dòng từ b đến a mất 4 giờ 30p tính khoảng cách từ a đến b biết vận tốc dòng nước là 4km/h

Tìm X: a) X-45,3=6,54x3,5 b)12,5 x X-3,4=56,6

Đề văn thuyết minh: a) thuyết minh về một văn bản một thể loại văn học đã học b) giới thiệu về một loài hoa hay một loài cây mà em yêu thích c) thuyết minh về một giống vật nuôi mà em yêu thích d) giới thiệu với một người bạn nước ngoài về một sản phẩm một trò chơi dân gian mang bản sắc Việt Nam

Cho S=1/50+1/51+...+1/99 Chứng minh S<1

Tìm anime cặp liên quan tới ảnh dưới với ạ:33 Vẽ mèo

Tìm ý và lập dàn ý cho bài: Chứng minh sự giản dị của Bác hồ trong bài viết qua văn bản tinh thần yêu nước của nhân dân ta

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