Номер строки с минимальным числом элементов Опции

[REC0N]

Дана матрица NxN.
Помогите вывести номер строки с минимальным число элементов что равны заданному (заданое число вводит пользователь)
Итак, у меня выводит n строк и количество элементов и напротив каждой строки, как вывести лишь минимальную строку?
Вот что наработал:

program matryca;
  uses crt;
  const nmax=1000;
  label 25;

  var Matr:array[1..nmax,1..nmax] of integer;
      Vec:array[1..nmax] of integer;
      n,m,i,j,k,l,min : integer;

  begin
        25:
        write ('Введите количество строк в матрице:');
        readln (m);
        write ('Введите количество столбцов в матрице:');
        readln (n);
        if m<>n then begin writeln('Матрица должна быть квадратная! ! !');goto 25; end;


        //  Ввод матрицы

        writeln('                            ');
        writeln('       -------------------- ');
        writeln('           Ввод матрицы     ');
        writeln('       -------------------- ');
        writeln('                            ');

                for i:=1 to n do
                for j:=1 to m do begin

        write ('Введите элемент матрицы A(',i,';',j,'):');
                readln (Matr[i,j]);
        end;

        // Вывод матрицы

        for i:=1 to n do begin
        write('(',i,'-я строка) ');
        for j:=1 to m do
                         write(Matr[i,j],' ');
                         writeln;
        end;

        // Введення числа


                  write('Введите число: ');
                  read(k);

                           for i:=1 to n do begin vec[i]:=0;
                           for j:=1 to m do begin
                           
                           if k=matr[i,j] then vec[i]:=vec[i]+1
                           end;
                           

                  end;

                  for i:=1 to n do begin
                  write('Количество введенных пользователем символов в ', i,'-й строчке: ', vec [i]);
                  writeln;
                  end;

end.

P.S:Делал на PascalABC

[Client]

min:=1;
for i:=2 to n do if vec[i]<vec[min] then min:=i;

В min будет нужный индекс

Сообщение отредактировано: Client - 3.03.2010 19:38

[REC0N]

min:=1;
for i:=2 to n do if vec[i]<vec[min] then min:=i;

В min будет нужный индекс

Спасибо помог