В матрице найти наименьшие элементы в каждом столбце и поместить их на главную диагональ - Pascal - Ответ 86976

uses crt;
var a:array[1..10]of integer;//целый массив
    b:array[1..15] of real;//вещественный
    sp,sm,x:real; //сумму считаем как реал, для целых выводим без десятых
    i,j,z:integer;
begin
clrscr;
writeln('Vvedite 10 celyh chisel - massiv A:');
for i:=1 to 10 do
read(a[i]);
readln;
sp:=0;sm:=0;
for i:=1 to 10 do
if a[i]>0 then sp:=sp+a[i]//сумма положительных
else if a[i]<0 then sm:=sm+abs(a[i]);  //сумма отрицательных
writeln('Massiv A: summa polozitelnyh=',sp:0:0,'  modulej otricatelnyh=',sm:0:0);
if sp=sm then //если равны сортировка, если нет, то т олько сумму выведет
    begin
      for i:=1 to 9 do
      for j:=i+1 to 10 do
      if a[i]<a[j] then
         begin
           z:=a[i]; a[i]:=a[j]; a[j]:=z;//обменная сортировка пузырьком
          end;
      writeln('Otsortirovannyj massiv A:');
      for i:=1 to 10 do
      write(a[i],' ');
    end;
writeln;
writeln('Vvedite 15 veshestvennyh chisel - massiv B:');//все тоже самое
for i:=1 to 15 do
read(b[i]);
readln;
sp:=0;sm:=0;
for i:=1 to 10 do
if b[i]>0 then sp:=sp+b[i]
else if b[i]<0 then sm:=sm+abs(b[i]);
writeln('Massiv B: summa polozitelnyh=',sp:0:2,'  modulej otricatelnyh=',sm:0:2);
if sp=sm then
    begin
      for i:=1 to 14 do
      for j:=i+1 to 15 do
      if b[i]<b[j] then
         begin
           x:=b[i]; b[i]:=b[j]; b[j]:=x;
          end;
      writeln('Otsortirovannyj massiv B:');
      for i:=1 to 15 do
      write(b[i]:5:1);
    end;
readln
end.