К элементам, стоящим на главной диагонали матрицы, добавить соответствующие минимальные элементы строк - Pascal

Формулировка задачи:

Если сумма минимальных элементов столбцов превышает максимальный элемент матрицы, то к элементам стоящим на главной диагонали добавить соответствующие минимальные элементы строк. В противном случае матрицу оставить без изменения.

Код к задаче: «К элементам, стоящим на главной диагонали матрицы, добавить соответствующие минимальные элементы строк - Pascal»

textual
  WriteLn('Минимальные элементы столбцов:');
  max:=a[1,1];
  for j:=1 to m do begin
    min:=a[1,j];
    for i:=1 to n do begin
      if min>a[i,j] then min:=a[i,j];
      if max<a[i,j] then max:=a[i,j];
    end;
    Write(' ',min); sum:=sum+min;
  end; WriteLn;
  WriteLn('Максимальный элемент матрицы: ',max);
  WriteLn('Сумма минимальных элементов столбцов: ',sum);
  if sum > max then ...

6   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы