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

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

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 ...

Похожие ответы
  1. Найдите все четырёхзначные числа, которые уменьшаются в 17 раз после отбрасывания первой цифры. В ответе укажите сумму всех таких чисел.

  1. Здравствуйте! Помогите решить программу. Pascal.Дана матрица порядка (11*11). Преобразовать матрицу по правилу: в каждой строке поменять местами минимальное и максимальное значение этой строки. Заранее благодарен.

  1. не используя функции, и используя пользовательский типДобавлено через 18 минут

  1. Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5. plzДобавлено через 22 минуты уже ненада...

  1. используя процедуры и функции для работы со сторками,выполнить следующее задание.В строке длины не более 255 знаков удалить текст,расположенный в скобках (включая скобки)Добавлено через 1 минуту

  1. Для заданной матрицы размером 8*8 найти такое к, что к-я строка матрицы совпадает с к-м столбцом(оформить в виде процедуры). Найти сумму элментов в тех строках, которые содержат хотя бы один отрицательный элемент(оформить в виде функции).

  1. Создать программу , которая вводит на экран график функции y:=2*sin*(x)*Exp(5/x)

  1. Дано имя файла и вещественные числа A и D. Создать файл вещественных чисел с данным именем и записать в него 10 первых членов арифметической прогрессии с начальным членом A и разностью D: A, A + D, A + 2*D, A + 3*D, … .


Нашли ошибку?
Развитие проекта
Яндекс.Метрика