Составить функцию, которая выводит номер строки массива с выбранным числом

Категория: Delphi/Pascal
2011-08-18 20:14:08

В массиве X[m, n] все числа различны. В каждой строке находится минимальный элемент, затем среди этих чисел выбирается максимальное. Напечатать номер строки массива X, в которой расположено выбранное число.

code: #pascal
  1. program PascalGuru;
  2.  
  3. var X:array[1..30,1..30] of integer;
  4.     i,j,m,n:integer;
  5.  
  6. {--------------------------------------------}
  7. function minmax:integer;
  8. var i,j,min,max:integer;
  9.     MINIM:array[1..30] of integer;
  10. begin
  11.   for i:=1 to m do
  12.     begin
  13.       min:=X[i,1];
  14.       for j:=2 to n do
  15.         if X[i,j]then min:=X[i,j];
  16.       MINIM[i]:=min;
  17.     end;
  18.    
  19.   max:=1;
  20.   for i:=2 to m do
  21.     if MINIM[i]>MINIM[max] then max:=i;
  22.  
  23.   minmax:=max;
  24. end;
  25.  
  26. {--------------------------------------------}
  27. begin
  28.   write('strok M= '); readln (m); {считываем размер массива}
  29.   write('stolbcov N= '); readln (n); {считываем размер массива}
  30.  
  31.   writeln ('Vvedite elementy massiva: ');
  32.   for i:=1 to m do
  33.     for j:=1 to n do begin
  34.       write ('X[',i,',',j,']='); readln (X[i,j]); end; {считываем сам массив}
  35.  
  36.   write ('Vot vvedennyy vami massiv: ');
  37.   for i:=1 to m do begin writeln;
  38.     for j:=1 to n do write (X[i,j]:8); end;  {выводим массив}
  39.  
  40.   writeln;writeln;
  41.   writeln ('Otvet (nomer stroki): ',minmax);
  42.  
  43.   readln;
  44. end.
Поделиться:

Похожие статьи:

теги: консольное приложение, студенты, массив, pascal, двумерный массив