Question

Пусть дана вещественная матрица размером nxm, все элементы которой раз¬личны. В каждой строке выберите элемент с наименьшим значением, затем среди этих чисел выберите наибольшее. Укажите индексы найденного эле¬мента.Напишите программу в Паскале АBC,ПОЖАЛУЙСТА,Зачёт в четверг,нужно сделать,заранее спасибо)

Answer 1

var 
a: Array[1..10, 1..10] of Real; 
n, m, i, j, i1, j1, i2, j2: Byte; 
min, max: Real;

begin 
Writeln('Введите кол-во строк и столбцов'); 
Read(n, m);Writeln; 
for i := 1 To n Do 
begin   
Writeln('Введите ', m, ' эл. ', i, '-й строки матрицы');   
for j := 1 To m Do Read(a[i, j])
end; 
Writeln('Ваша матрица:'); 
for i := 1 To n Do 
begin   
for j := 1 To m Do
Write(a[i, j]:7:2);   
Writeln
end; 
for i := 1 To n Do 
begin   
min := a[i, 1];i1 := i;j1 := 1;   
for j := 1 To m Do    
if a[i, j] < min then begin       
min := a[i, j];i1 := i;j1 := j     
end;   
 if i = 1 Then    begin  
max := min;i2 := i1;j2 := j1   
end   
Else    if min > max Then    begin     
max := min;i2 := i1;j2 := j1   
end 
end; 
Writeln('Максимальным из минимумов строк является элемент ', max:6:2, ' с индексами [', i2, ',', j2, ']');
end.

Answer 2

Для решения данной задачи вам потребуется написать программу на языке Pascal ABC. В программе вы должны будете работать с вещественной матрицей размером nxm, где все элементы различны.

Алгоритм решения:

1. Создайте матрицу размером nxm и заполните ее вещественными числами. 2. Создайте массив минимальных значений для каждой строки матрицы. 3. Найдите минимальное значение в каждой строке матрицы и запишите его в массив минимальных значений. 4. Найдите максимальное значение в массиве минимальных значений и запомните его. 5. Найдите индексы найденного максимального значения в массиве минимальных значений.

Пример программы на Pascal ABC:

```pascal program FindMaxMinElement;

const n = 3; // количество строк m = 4; // количество столбцов

var matrix: array[1..n, 1..m] of real; minValues: array[1..n] of real; maxMinValue: real; maxMinIndex: integer; i, j: integer;

begin // Заполнение матрицы случайными вещественными числами for i := 1 to n do for j := 1 to m do matrix[i, j] := random(100);

// Нахождение минимального значения в каждой строке матрицы for i := 1 to n do begin minValues[i] := matrix[i, 1]; for j := 2 to m do if matrix[i, j] < minValues[i] then minValues[i] := matrix[i, j]; end;

// Нахождение максимального значения среди минимальных значений maxMinValue := minValues[1]; maxMinIndex := 1; for i := 2 to n do if minValues[i] > maxMinValue then begin maxMinValue := minValues[i]; maxMinIndex := i; end;

// Вывод результата writeln('Матрица:'); for i := 1 to n do begin for j := 1 to m do write(matrix[i, j]:8:2, ' '); writeln; end; writeln; writeln('Минимальные значения в каждой строке:'); for i := 1 to n do writeln('Строка ', i, ': ', minValues[i]:8:2); writeln; writeln('Максимальное значение среди минимальных значений:'); writeln('Индекс строки: ', maxMinIndex); writeln('Значение: ', maxMinValue:8:2);

end. ```

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

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