Процедуры.Матрицы

[Ilya_Vydysh]

Даны матрицы А(4,4) и В(3,4).Найти наименьший элемент каждой матрицы и записать в строку, где находится этот элемент 10. Ввод, вывод матрицы и преобразование матрицы оформить в виде отдельных процедур.

[Ilya_Vydysh]

program L72;
uses crt;
CONST

m=4;
p=3;
k=4;
type Massiv1=array[1..m,1..m] of longint; Massiv2 = array[1..p,1..k] of longint;
VAR
a:massiv1; b:massiv2;
q,i,j:integer;
min1,min2:integer;
procedure vvodmas1(a:Massiv1);
var
i,j:integer;
begin
writeln('vvodim perviy massiv');
clrscr;
for i:=1 to m do begin
for j:=1 to m do begin

write('a[',i,j,']=');

readln(a[i,j]);


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





procedure poisk1(min1:integer);
var
a:Massiv1;
i,q,j:integer;
begin


min1:=A[1,1];
for j:=1 to m do
for i:=1 to m do begin


if min1>A[i,j] then min1:=A[i,j];
end;

writeln('min= ',min1);
for i:=1 to m do
for j:=1 to m do begin
if a[i,j]=min1 then q:=i;
end;
writeln('min naxoditsa v ', q, ' stroke');

for i:=1 to m do
for j:=1 to m do begin
a[q,j]:=10;
end;
for i:=1 to m do begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;



END;

procedure vvodmas2(b:Massiv2);
var
i,j:integer;
begin
writeln('vvodim vtoroy massiv');
clrscr;
for i:=1 to p do begin
for j:=1 to k do begin

write('b[',i,j,']=');

readln(b[i,j]);

end;
end;
for i:=1 to p do begin
for j:=1 to k do write(b[i,j],' ');
writeln;
end;
end;

procedure poisk2(min2:integer);
var
b:Massiv2;

begin



min2:=B[1,1];
for i:=1 to p do
for j:=1 to k do begin


if (min2>B[i,j]) then min2:=B[i,j];

end;
Writeln('min2= ',min2);
for i:=1 to p do
for j:=1 to k do begin
if b[i,j]=min2 then q:=i;
end;
writeln('min naxoditsa v ', q, ' stroke');

for i:=1 to p do
for j:=1 to k do begin
b[q,j]:=10;
end;
for i:=1 to p do begin
for j:=1 to k do write(b[i,j],' ');
writeln;
end;


END;

begin
clrscr;

vvodmas1(a);

poisk1(min1);
readln;
vvodmas2(b);

poisk2(min2);

readln;
end.