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.
1)Б
2)Г
3)Х
4)К
5)А
вот мой ответ