Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  2
Language: PASCAL
Code:
const N=10;
var a: array[1..N] of integer;  
    i,j,k,imax,kmax: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do begin
  k:=0;
  for j:=1 to a[i] do
    if a[i] mod j = 0 then k:= k + 1;
  if (i = 1) or (k > kmax) then begin
    imax := i; kmax := k;
  end;
end;
writeln(‘Номер элемента имеющего максимальное число делителей : ’,imax);
end.     
Comments: