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
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
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.
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.