программа из Уроки от Дмитриева Эдуарда, помогите начинающему разобраться Опции

[volvo]

после этого пойдешь в наш FAQ и там выберешь себе понравившийся метод сортировки

klem4, если бы все было так просто... Все алгоритмы сортировки, приведенные в FAQ-е работают с одномерными массивами...

Хотя... Если правильно задать матрицу, то можно работать с каждой строкой, как с отдельной переменной... Это упростит задачу. За дополнительной информацией - сюда:
Как задать матрицу, чтобы быстро поменять местами ее строки

[KENNY]

да да, я это читал... так всеже как правильно посчитать колво одинковыйх элементов в массиве?

Сообщение отредактировано: KENNY - 18.12.2005 4:13

[klem4]

например вот так :

uses crt;
const
   n=10;
var
   x : array[1..n] of integer;
   i,j,count,temp : integer;
begin

   clrscr;

   for i := 1 to n do readln(x[i]);

   i := 1;

   count :=1 ;

   while(i<=n-1) do begin
      j := i + 1;
      temp := 1;
      while(j<=n) do begin
         if x[i] = x[j] then inc(temp);
         inc(j);
      end;

      if temp>count then count := temp;
      inc(i);
   end;

   writeln('count=',count);

   readln
end.

[volvo]

While иногда запутывает программу, и она выглядит искусственным нагромождением конструкций... То же самое через For читается проще:

uses crt;
const
   n=10;
var
   x : array[1..n] of integer;
   i,j,count,temp : integer;
begin

   clrscr;
   for i := 1 to n do readln(x[i]);

   count :=1 ;
   for i := 1 to n - 1 do begin

     temp := 1;
     for j := i + 1 to n do
       if x[i] = x[j] then inc(temp);

      if temp>count then count := temp;

   end;

   writeln('count=',count);
   readln
end.

[klem4]

Да, я просто выложил не окончательную версию, не то скопировал, если использовать такой вариант, то возможны лишние операции, вот тот вариант который я хотел запостить :

uses crt;
const
   n=10;
var
   x : array[1..n] of integer;
   i,j,count,temp : integer;
begin

   clrscr;

   for i := 1 to n do readln(x[i]);

   i := 1;

   count :=1 ;

   while(i<=n-1) and (count<n-i+1) do begin
      j := i + 1;
      temp := 1;
      while(j<=n) do begin
         if x[i] = x[j] then inc(temp);
         inc(j);
      end;

      if temp>count then count := temp;
      inc(i);
   end;

   writeln('count=',count);

   readln
end.