Паскаль: процедура, функция т_т

[Liam_]

Дана последовательность целых чисел a1, a2, ... , an Найти число, наиболее часто встречаемое в массиве (если таких цифр несколько - напечатать лю-бую из них).

Помогите с решением, НО требуется решить не циклом, а сначала процедурой, потом отдельно функцией.

[Stilet]

А наработками похвастаться?
Ты хотя бы покажи как вводишь массив.

[Liam_]

var a:array[1..100] of integer;
     i,n,j,ind,sum,max:integer;
begin
 write('vvedite chislo elementov ');
 readln(n);
 for i:=1 to n do
  begin
  write('a[',i,'] ');
  readln(a[i]);
  end;
ind:=0;
max:=0;
for i:=1 to n do
 begin
  sum:=0;
   for j:=1 to n do
    if a[i]=a[j] then sum:=sum+1;

   if sum>max then begin ind:=i; max:=sum; end;
 end;

writeln;
writeln('Element "',a[ind],'" vstrechaetsia v massive ', max,' raz');
 readln;
end.

Пока что всё, что имеется - циклом...

[Stilet]

Навскидку:

Procedure P(var sum:integer);
begin
for i:=1 to n do
 begin
  sum:=0;
   for j:=1 to n do
    if a[i]=a[j] then sum:=sum+1;
end;

Function F:integer;
begin
for i:=1 to n do
 begin
  f:=0;
   for j:=1 to n do
    if a[i]=a[j] then f:=f+1;
end;

var a:array[1..100] of integer;
     i,n,j,ind,sum,max:integer;
begin
 write('vvedite chislo elementov ');
 readln(n);
 for i:=1 to n do
  begin
  write('a[',i,'] ');
  readln(a[i]);
  end;
ind:=0;
max:=0;
   p(sum);
   sum:=f;
   if sum>max then begin ind:=i; max:=sum; end;
 end;

writeln;
writeln('Element "',a[ind],'" vstrechaetsia v massive ', max,' raz');
 readln;
end.

Если захочешь можно разьединить по разным программам.

[Liam_]

Да, вроде бы нужно было 2-мя отдельными =)

[Stilet]

Ну раздели )
Ты то как я понимаю кое-что понимаешь, так что разделить готовый код для тебя проблемой не станет.

[Liam_]

Охинея получается, не подскажешь все таки с разделением? Второй час ночи, котелок кардинально отказывается варить..(

[Stilet]

От несчастье...

Procedure P(var sum:integer);
begin
for i:=1 to n do
 begin
  sum:=0;
   for j:=1 to n do
    if a[i]=a[j] then sum:=sum+1;
end;

var a:array[1..100] of integer;
     i,n,j,ind,sum,max:integer;
begin
 write('vvedite chislo elementov ');
 readln(n);
 for i:=1 to n do
  begin
  write('a[',i,'] ');
  readln(a[i]);
  end;
ind:=0;
max:=0;
   p(sum);
   if sum>max then begin ind:=i; max:=sum; end;
 end;

writeln;
writeln('Element "',a[ind],'" vstrechaetsia v massive ', max,' raz');
 readln;
end.

Увидел разницу? Теперь по образу и подобию функцию прилепи.

Второй час ночи

Баиньки иди. Утро вечера мудренее, глядишь и Василиса Прекрасная во сне решение нашепчет )))

[Liam_]

:D в таком случае лучше Премудрая, но это с какой стороны посмотреть) ладно, спасибо)