Cho một dãy gồm N số nguyên. Hãy viết chương trình tìm trong dãy đã cho số có nhiều ước nhất với các ước của số đó là các số thuộc dãy đã cho. Input 10 7 2 28 5 8 4 20 10 12 15 Output 20

trinhtientao

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 23 xem

1 trả lời

Thích Trả lời

lannn519

program uocnhieunhat;

uses crt;

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

n,i,max,ptu:integer;

function demuoc(k:integer):integer;

var l:integer;

begin

demuoc:=0;

for l:=1 to k do

if k mod l=0 then demuoc:=demuoc+1;

end;

BEGIN

clrscr;

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': '); readln(n);

end;

max:=demuoc(A[1]); ptu:=A[1];

for i:=2 to n do

if demuoc(A[i])>max then

begin

max:=demuoc(A[i]);

ptu:=A[i];

end;

write('Phan tu co nhieu uoc nhat la: ',ptu,' voi ',demuoc(ptu),' uoc');

readln

end.

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

Alie0211

uses crt;

var n,i,vt,d,max,j:byte;

a:array[1..200] of integer;

BEGIN

clrscr;

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

for i:=1 to n do

begin

write('Nhap a[',i,']:');

readln(a[i]);

end;

max:=0;

for i:=1 to n do

begin

d:=0;

for j:=1 to n do

if a[i] mod a[j]=0 then inc(d);

if d>max then

begin

vt:=i;

max:=d;

end;

write('So co nhieu uoc nhat la:',a[vt]);

readln

END.

Xin ctlhn!

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

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

Giúp mình với mình đang cần gấp ạ

I Unscrambled the following works 1: NIEVGEN -> ....... 2:ETEM. -> ......... 3:ORMGINN -> ......... 4:HATKSN ->......

-tính diện tích mảnh vườn như hình bên (anh cj chia ra từng hình rồi tính..)

Đặt câu trần thuật có mục đích cầu khiến

Cho câu chủ đề : " Mọi người cùng chung tay chống dịch Covid-19 " . Em hãy viết đoạn văn diễn dịch và các câu trong đoạn có sử dụng ( từ ... đến ) , tham khảo văn bản đã học Nhanh đc ko ạ tí nx mik phải nộp ạ #Nhimz

Tìm một số biết rằng nếu giảm số đó đi hai thì được thương là tổng của số lớn nhất có hai chữ số với 24

Tính : 1/20.23+1/23.26+1/26.29+...+1/77.80

Tìm số tự nhiên n để 2n+1 chia hết cho 6-n 3n chia hết cho 5-2n 4n+3 chia hết cho 2n+6

giúp mình với!! Cho hai dòng điện thẳng M và N dài vô hạn song song, ngược chiều nhau có cường độ lần lượt là 12A và 18A đặt cách nhau 20cm trong chân không. Tính cảm ứng từ tổng hợp tại điểm a. cách dòng điện M 12cm, dòng điện N 8cm. b. cách dòng điện M 4cm, dòng điện N 24cm. c. cách dòng điện M 12cm, dòng điện B 16cm. d. cách dòng điện M 20cm, dòng điện N 20cm.

Oxi hóa hoàn toàn 10,2g hỗn hợp Al và Mg cần 5,6 lít oxi (đktc). Tính khối lượng mỗi kim loại có trong hỗn hợp.

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