Найти минимальный элемент для каждой строки матриц - Turbo Pascal

  1. найти минимальный элемент для каждой строки матриц А (n,n) и В ( m m) с процедурой, пожалуйста помогите очень срочно.


textual

Код:

const
  nmax = 21;
 
type
  mas = array[1..nmax, 1..nmax] of integer;
 
var
  a, b: mas;
  n, m: byte;
  sm: integer;
 
procedure init_mas(var a: mas; n: integer);
var
  i, j: integer;
begin
  sm := maxint;
  for i := 1 to n do 
  begin
    sm := maxint; 
    for j := 1 to n do
    begin
      a[i, j] := random(20); 
      if a[i, j] <= sm then sm := a[i, j];
    end;
    a[i, n + 1] := sm; 
  end;
end;
 
procedure print_mas(a: mas; n: integer);
var
  i, j: integer;
begin
  writeln('Min':(n * 4 + 8));
  for i := 1 to n do
  begin
    for j := 1 to n + 1 do
      if j = n + 1 then write(a[i, j]:7) 
      else write(a[i, j]:4); 
    writeln;
  end;
end;
 
 
 
begin
  repeat 
    write('Размерность матрицы A [1..', nmax - 1, '] n=');
    readln(n);
  until n in [1..nmax - 1];
  repeat 
    write('Размерность матрицы B [1..', nmax - 1, '] m=');
    readln(m);
  until m in [1..nmax - 1];
  init_mas(a, n);
  init_mas(b, m);
  print_mas(a, n);
  print_mas(b, m);
end.


Похожие ответы
  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

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

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

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

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.