Cho mảng A 10 phần tử số nguyên viết chương trình tạo mảng B gồm các phần tử chia hết cho 3 và 5 trong mảng A Mọi người giúp mình với :<

khongthichthimo

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 29 xem

1 trả lời

Thích Trả lời

teamrules

program ptuchiahet;

uses crt;

var A,B:array[1..10] of integer;

i,d:byte;

begin

clrscr;

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG A:');

d:=0;

for i:=1 to 10 do

begin

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

readln(A[i];

if A[i] mod 15=0 then

begin

inc(d);

B[d]:=A[i];

end;

write('Mang A la: ');

for i:=1 to 10 do

write(A[i],' ');

writeln;

writeln('Mang B tao thanh la: ');

for i:=1 to d do

write(B[i],' ');

readln

end.

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

dinhnhatmai284

uses crt;

var a : array[1 .. 10] of integer;

b : array[1 .. 10] of integer;

i, j, dem : integer;

begin

clrscr; dem := 0;

for i := 1 to 10 do

begin write('Nhap so thu ', i ,' : ');

readln(a[i]);

if ((a[i] mod 3 = 0) and (a[i] mod 5 = 0))

then dem := dem + 1;

end;

j := 1; i := 1;

while i <= 10 do

begin

if ((a[i] mod 3 = 0) and (a[i] mod 5 = 0))

then begin

b[j] := a[i]; j := j + 1; end;

i := i + 1;

end;

write('Mang B : ');

for i := 1 to dem do write(B[i],' ');

readln

end.

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

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

a) Tính các góc ở đáy của một tam giác cân biết góc ở đỉnh bằng 40o. b) Tính góc ở đỉnh của một tam giác cân biết góc ở đáy bằng 40o. ko cần vẽ hình nhé ko chép mạng

tổ sản xuất cùng làm chung 1 công việc sau 4 ngày xong nếu tổ 1 làm 1 mình xong 1/2 công việc rồi nghỉ tổ 2 làm tiếp cho tới khi xong thì hết 9 ngày .tính thời gian mỗi tổ làm 1 mình xong công việc

Phân tích những câu tục ngữ đã học để chứng minh nhận định : những câu tục ngữ này luôn tôn vinh giá trị còn người

cam nhan ve nhan vat de men 5 den 7 cau

1, Does your father work .............. Hanoi? 2, What do you do .............your free time? 3, Lan'll have a party ...................... Friday evening. 4, David is good .................... Math. 5, Are you interested ..............sports?.

sự hợp tác toàn diện của các nước Đông Nam Á được thể hiện như thế nào? có những gì khó khăn trong quan hệ hợp tác giữa các nước Đông Nam Á

Bài 1 Viết 10 câu với thì QK đơn nhìn công thức Bài 2 S đứng trước V Lấy 10 ví dụ Tân ngữ đứng sau V lấy 10 ví dụ

Ca ngợi cuộc sống cao đẹp của Bác Hồ trong bài thơ Bác Ơi nhà thơ Tố Hữu viết Bác Sống như trời đất của ta yêu từng ngọn lúa mỗi cành hoa tự do cho mỗi đời nô lệ sữa để em thơ lụa tặng già đoạn thơ trên đã giúp em hiểu được những nét đẹp gì trong cuộc sống của Bác Hồ kính yêu

Neu cam nhan ve nhan vat de men ko chep mang

Tìm lim (1 + 3 + 5 + ... + 2n + 1) / (3n^2 + 4)

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