Процедура в паскале

[Yalovick]

uses crt;
const n=10;
Type tarray=array[1..n] of integer;
var
M:array [1..50,1..50] of integer;
i,j,n1,n2:integer; A:tarray;
 
procedure printarray(var a:tarray);
var
i,j:integer;
begin
randomize;
writeln('vvedite colichestvo strok'); read(n1);
writeln('vvedite colichestvo ctolbcov'); read(n2);
for i:=1 to n1 do
for j:=1 to n2 do
m[i,j]:=random(10);
end;
 
procedure print2array(var a:tarray);
var
i,j:integer;
begin
for i:=1 to n1 do
begin
for j:=1 to n2 do
write(m[i,j],' ');
writeln;
end;
end;
 
procedure poisk(var a:tarray);
var
z,p,q,i,max,min:integer;
begin
max:=0;
for i:=1 to n1 do
begin
min:=m[i,1];
for j:=2 to n2 do
if m[i,j] < min then
min:= m[i,j];
if min > max then
max:=min;
end;
writeln('max=',max);
end;
 
begin
clrscr;
printarray(A);
print2array(A);
poisk(A);
readln;
end.

Задание:

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

Программа практически готова, необходимо вставить процедуру вывода строки


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Fissa]

Во-первых, отформатировано.
Во-вторых, убрано лишнее.
В-третьих, на всякий случай, если ты не знаешь, то процедуры и функции используются только в том случае, когда какой-то код повторяется несколько раз, а не просто так ИМХО усложняет чтение проги, нагромождает код. Оставила их, а то может ты действительно их используешь несколько раз, просто не выложил здесь весь код.

uses crt;
const n=10;
Type tarray=array[1..n] of integer;
var
   m: array [1..50,1..50] of integer;
   i, j, n1, n2: integer;
   A: tarray;

procedure createArray;
          begin
               randomize;
               write('vvedite colichestvo strok: '); read(n1);
               write('vvedite colichestvo ctolbcov: '); read(n2);
               writeln;
               for i:=1 to n1 do
                   for j:=1 to n2 do
                       m[i,j]:=random(10);
          end;

procedure printArray;
          begin
               for i:=1 to n1 do
               begin
                    for j:=1 to n2 do
                        write(m[i,j],' ');
                    writeln;
               end;
               writeln;
          end;

procedure poisk;
          var
             max, min, stroka: integer;
          begin
               max:=0;
               for i:=1 to n1 do
               begin
                    min:=m[i,1];
                    for j:=1 to n2 do
                        if m[i,j] < min then
                           min:= m[i,j];
                    if min > max then
                    begin
                       max:=min;
                       stroka:=i;
                    end;
               end;
               writeln('max=',max);
               writeln('stroka=',stroka);
          end;

begin
     clrscr;
     createArray;
     printArray;
     poisk;
     readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
и не используйте, пожалуйста, тег [РHP]...[/PHP], если у Вас не код на PHP!

Модератор.