Viết chương trình nhập vào mảng một chiều các số nguyên, sô lương phân tử tùy ý. Xuất mảng vừa nhập, nhập vào phân tử K. Tính tổng các phần tử chua hết cho K. Từ đó suy ra các phân tử bằng k

han2009

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 41 xem

1 trả lời

Thích Trả lời

anhphampro07

program kiemtrak;

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

n,i,k,d:integer;

s:longint;

begin

clrscr;

write('Nhap so luong phan tu cua day'); readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

begin

write('Phan tu thu ',i,': ');

readln(A[i]);

end;

writeln('Day vua nhap la');

for i:=1 to n do

write(A[i]:4);

writeln;

write('Nhap k: '); readln(k);

s:=0; d:=0;

for i:=1 to n do

begin

if A[i] mod k=0 then s:=s+A[i];

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

end;

writeln('Tong cac phan tu chia het cho ',k,' la: ',s);

write('Trong day co ',d,' phan tu bang ',k);

readln

end.

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

nguyenkhanht04

uses crt;
var n,i,k,s,d:integer;
a,c:array[0..1000] of integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']=');
readln(a[i]);
end;
write('Mang vua nhap:');
for i:=1 to n do write(a[i],' ');
writeln;
write('Nhap K:'); readln(k);
s:=0; d:=0;
for i:=1 to n do
begin
if a[i] mod k=0 then s:=s+a[i];
if a[i]=k then
begin
inc(d);
c[d]:=i;
end;
end;
writeln('Tong cac phan tu chia het cho K la:',s);
write('Vi tri cac phan tu = K la:');
for i:=1 to d do write(c[i],' ');
readln
END.

Chúc bạn học tốt.

Cho mình xin câu trả lời hay nhất.

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

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

Giải chi tiết câu 5 nhé :3 thankiu

Use the correct form of the words in brackets 1.It's difficult to follow your........ Can you start again please?(direct) 2.We are waiting for the......... of his plane.(arrive) 3.Are you interested in......... the environment?(protect) Giải giúp em với ạ,kèm giải thích lí do chọn luôn ạ,cô em toàn hỏi lí do,mong mọi người giúp em :(((!!!!!!

ê, điền số cần thiết vào đây nhé! 1210 3211000 ?????????? lưu ý: số này gồm 10 chữ số!

Một bể cá bằng kính dạng hình hộp chữ nhật có thể tích 500dm3, chiều cao là 5dm. Đáy bể có thể có chu vi nhỏ nhất là bao nhiêu? Vì sao?

vẽ m1887 nhaaaaaaaa rảnh thì vẽ luôn m1014

Làm cho em câu 2, 3 nhé. Em đang cần rất gấp. Ai trả lời đúng mà ko spam em cho 5 sao ạ.

cho mình xin dàn ý chi tiết bài cảm nhận về 2 đoạn văn này trong VCAP với “Lần lần mấy năm ... đến bao giờ chết thì thôi” Và “Lúc ấy đã khuya...lao chạy xuống dốc núi” Mọi người giúp mình vs ạ :((( huhu

Đặt tính rồi tính ko đặt ngang Làm cho mik 3 bài này

vẽ đậu mầm nhá các bạn thân mến

Viết mở bài cho đề văn "Giới thiệu về trường em" (Không chép mạng nha, chép là tui biết hết á)

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