4) emfтак как png, bmp -формат хранения растровых изображений
Панков1101
23.05.2020
Const n=10; m=8; var a: array[1..n,1..m]of integer; b: array[1..m]of integer; i,j,min: integer; begin for i: =1 to n do begin writeln; for j: =1 to m do begin a[i,j]: =random(100); write(a[i,j]: 4); end; end; writeln; for j: =1 to m do begin min: =a[i,1]; for i: =1 to n do if a[i,j]< min then min: =a[i,j]; b[j]: =min; end; for i: =1 to m do write(b[i]: 4); end.