Нахождение минимального элемента и номера строк и столбцов, где он расположен - Turbo Pascal

  1. Помогите пожалуйста с программой. Нужно создать две процедуры( одну -заполнение массива, другая- нахождение минимального элемента и номера строке и столбцов где он расположен) Вот задание : Найти наименьшие элементы и номера строк и столбцов , в которых они расположены, для матриц А(10,15) и В(15,12).


textual

Код к задаче: «Нахождение минимального элемента и номера строк и столбцов, где он расположен - Turbo Pascal»

type
  vector = array [1..15, 1..15] of integer;
 
var
  a, b: vector;
  min, imin, jmin: integer;
 
procedure Create(var x: vector; _n, _m: integer);
var
  i, j: integer;
begin
  for i := 1 to _n do
    for j := 1 to _m do
      x[i, j] := Random(101) - 50;
end;
 
procedure Print(x: vector; _n, _m: integer);
var
  i, j: integer;
begin
  for i := 1 to _n do
  begin
    for j := 1 to _m do
      Write(x[i, j]:5);
    Writeln
  end;
end;
 
procedure FindMin(x: vector; _n, _m: integer; var _min, _imin, _jmin: integer);
var
  i, j: integer;
begin
  _min := MAXINT;
  for i := 1 to _n do
    for j := 1 to _m do
      if x[i, j] < min then
      begin
        _min := x[i, j];
        _imin := i;
        _jmin := j
      end;
end;
 
begin
  Writeln('Матрица A:');
  Create(a, 10, 15);
  Print(a, 10, 15);
  FindMin(a, 10, 15, min, imin, jmin);
  Writeln('MIN = ', min, '; IMIN = ', imin, '; JMIN = ', jmin);
  Writeln('Матрица B:');
  Create(b, 15, 12);
  Print(b, 15, 12);
  FindMin(b, 15, 12, min, imin, jmin);
  Writeln('MIN = ', min, '; IMIN = ', imin, '; JMIN = ', jmin);
  Readln
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.000 из 5



Похожие ответы
  1. Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

  1. Напишите подпрограмму на нахождение средне арифмитического. С помошью этой подпрограммы найти количество чисел, которые выше средне арифмитического из ряда чисел заданных с клавиатуры , заканчиваюшихся -777. Помогите пожауйста с не простой задачей.

  1. составить программу нахождения двузначных чисел у которых сумма кубов цифр делиться на 3

  1. составит программу нахождения положительных четных чисел меньших а (а ввод с клав)

  1. Составить текст программы на языке Паскаль, содержащий: 1) процедуру, выполняющую действия над массивами сумму элементов массива, расположенных после минимального элемента. Диапазон – [-10;30].; 2) процедуру, выполняющую ввод элементов массива с клавиатуры; 3) процедуру, выполняющую заполнение массива случайными величинами в заданном диапазоне; 4) процедуру, выполняющую вывод элементов массива на экран в виде таблицы.

  1. Помогите пожалуйста. Есть два тестовых файла, которые содержат строки (файлы большие, по 60k строк в каждом). Задача сравнить эти два этих файла и найти одинаковые строки и вывести эти строки в третий файл, который программа будет создавать. Структура файла такова, что все строки имеют фиксированную длину (41 символ). Пример: Кликните здесь для просмотра всего текста "h0001d8b9g13d6g4605g85e9g708fe1e537c8"_ "h000310b1gc6f0g4341gbbddgf1f5fc471eae"_ В конце программы нужно вывести на экран количество одинаковых строк, которые были найдены программой, иначе написать "Не найдено" Что у меня получилось:

  1. Дан массив A (a1, a2, …, aN). Найти произведение максимального и минимального элементов массива A. Напечатать значение этого произве- дения и номера максимального и минимального элементов. Помогите пожалуйста с масивами этими) я в них ничего не понимаю. Напишите программу. Буду очень признателен вам)

  1. Дан одномерный массив с числом элементов n<20. Заменить первый элемент этого одномерного массива суммой максимального и минимального элементов. Заранее спасибо =)

  1. Помогите пожалуйста алгоритм для нахождения квадратов первых десяти натуральных чисел

  1. Используя функцию F, построить массив y с элементами yk=F(k). Выполнить для этого массива следующий поиск данных: F:=cos(sqr(x+1)-ABS(sin(2*x)-5.76). Найти суммы максимального и минимального значений функции и их аргументов.