The largest one , matrix, Pascal

The largest one , matrix

program MatrixEleme;

label err1;
const
max1=50;
max2=50;
type
matrix=array[1..max1,1..max2] of integer;
var
a:matrix;
i,j,n,m:integer;

procedure makematrix(var a:matrix; var n,m:integer);
label err;
begin
writeln('Input dimensions of matrix: ');
read(n,m);
if (n<0) or (n>max1) or (m<0) or (m>max2) then goto err;
for i:=1 to n do
for j:=1 to m do
read(a[i][j]);
err:end;

procedure writematrix(a:matrix;n,m:integer);
begin
writeln('Ypur matrix is: ');
for i:=1 to n do begin
for j:=1 to m do write(a[i][j],' ');
writeln()
end
end;

procedure processing(a:matrix;n,m:integer);
var
i,j,min,max:integer;
b:array[1..max2] of integer;
begin
for j:=1 to m do begin
min:=a[1][j];
for i:=1 to n do 
if(a[i][j]<min) then min:=a[i][j];
b[j]:=min
end;
max:=b[1]; 
writeln('new array minimal elements of matrix rows: ');
for i:=1 to m do begin
write(b[i],' ');
if(b[i]>max) then max:=b[i]
end;
writeln();
write('The largest element is ',max,' in row: ');
for i:=1 to m do 
if(b[i]=max) then write(i,' ');
end;

begin
makematrix(a,n,m);
if (n<0) or (n>max1) or (m<0) or (m>max2) then goto err1;
writematrix(a,n,m);
processing(a,n,m);
err1:end.


run \| edit \| history \| help	0