Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
practica 7 ejercicio 7
Banking
Андреева Урок 6 задача 8 (1531)
conversion Metrica
Lab2RandomAndAvg
T
ariketa 01
5
practica 7 ejercicio 4
5 5