const ns=20; var a:array[1..ns,1..ns] of integer; m,n,i,j:byte; min,sum:integer; begin randomize; readln(m,n);
writeln('Исходная матрица:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:3); end; writeln; end; writeln('Минимальные элементы столбцов:'); sum:=0; for j:=1 to n do begin min:=a[1,j]; for i:=1 to m do if a[i,j]<min then min:=a[i,j]; sum:=sum+min; writeln(j,' - ',min:2); end; writeln('Сумма минимальных элементов: ',sum); end.
B4, L16, A23b
думаю правильно