0 / 0 / 0
Регистрация: 24.09.2018
Сообщений: 91
1

Найти минимальный элемент из всех минимальных элементов по строкам

22.11.2018, 00:30. Показов 728. Ответов 1
Метки нет (Все метки)

2. Двумерный квадратный массив целых чисел считывается из текстового файла. Программа выводит квадратный массив в консольное окно, выдает информацию о минимальных элементах по всем строкам массива. Она также находит минимальный элемент из всех минимальных элементов по строкам.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2018, 00:30
Ответы с готовыми решениями:

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

Найти минимальный элемент среди минимальных элементов столбцов матрицы
Найти минимальный элемент среди минимальных элементов столбцов двумерного массива чисел. CLS...

Найти минимальный элемент массива. Определить количество минимальных элементов
Вообще не могу сообразить как его сделать..+ модуль влепить как-то нужно....а как это сделать то же...

Упорядочить матрицу по возрастанию элементов по строкам, найти минимальный по модулю элемент
Упорядочить матрицу А(3,4) по возрастанию элементов по строкам , найти минимальный по модулю...

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
23.11.2018, 11:39 2
Взято отсюда: Найти максимальный элемент массива среди минимальных элементов строк таблицы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
const
  n_max = 100;
 
var
  A: array[1..n_max, 1..n_max] of integer;
  B: array[1..n_max] of integer;
  min, i, j, n, imin: integer;
  f: text;
 
begin
  assign(f, 'input.txt');
  reset(f);
  readln(f, n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      read(f, A[i, j]);
      write(A[i, j]:5);
    end;
    writeln;
  end;
  close(f);
  for i := 1 to n do
  begin
    min := a[i, 1];
    imin := 1;
    for j := 2 to n do
      if A[i, j] < a[i, imin] then 
      begin
        imin := j;
        min := a[i, j];
      end;
    B[i] := imin;
  end;
  writeln('Минимальные элементы:');
  for i := 1 to n do
    writeln('Минимум: ', a[i, b[i]]:5, 'Строка: ':10, i:5);
  writeln;
  imin := 1;
  for i := 2 to n do
    if A[i, B[i]] < A[imin, B[imin]] then 
      imin := i;
  writeln('Min элемент среди min элементов строк = ', A[imin, B[imin]], ' индексы A[', imin, ',', B[imin], ']');
end.
Файл input.txt
4
21 2 3 4 5 6 73 8 9 10 11 12 301 14 15 16
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2018, 11:39
Помогаю со студенческими работами здесь

Найти минимальный элемент в каждом столбце и сумму квадратов этих минимальных элементов для всей матрицы
Доброго времени суток. Нужно найти минимальный элемент в каждом столбце и сумму квадратов этих...

Поменять местами максимальный по степени 2 элемент среди минимальных элементов строк и минимальный элемент
поменять местами максимальный по степени 2 элемент среди минимальных элементов строк и минимальный...

Найти минимальное из максимальных элементов и максимальное из минимальных элементов по строкам и по столбцам
Сформировать целочисленную матрицу из величин типа integer. Найти минимальное из максимальных...

Найти минимальный элемент массива из всех элементов, обладающих свойством Q
Требуется определить массив целых чисел (например, размера 30), заполнить его случайными числами (в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru