
Написать программу для определения в двумерном массиве целых чисел В[5,5] максимального элемента и
его местоположения. Оформить ввод/вывод массива.

Ответы на вопрос

Ответ:
const
L = 1;
H = 5;
var
b: array [L..H, L..H] of Integer;
i, j, imax, jmax, bmax: Integer;
begin
Randomize;
for i := L to H do begin
WriteLn;
for j := L to H do begin
b [i, j] := Random (100);
Write (b [i, j] :4);
end;
end;
imax := 1;
jmax := 1;
for i := L to H do begin
for j := L to H do begin
if b [i, j] > b [imax, jmax] then begin
imax := i;
jmax := j;
end;
end;
end;
WriteLn;
Writeln ('Максимальный элемент: b [', imax, ', ', jmax, '] = ', b [imax, jmax]);
ReadLn;
end.




===== PascalABC.NET =====
begin
var B := MatrRandom(5, 5, -99, 99);
B.Println(4);
var t := B.ElementsWithIndices.MaxBy(p -> p[0]);
Writeln('Максимальный элемент B[',
t[1] + 1, ',', t[2] + 1, '] = ', t[0])
end.



Конечно! Вот пример программы на языке Python, которая позволяет определить максимальный элемент и его местоположение в двумерном массиве целых чисел размером 5x5:
pythondef find_max_element(array):
max_element = array[0][0]
max_row = 0
max_col = 0
for i in range(len(array)):
for j in range(len(array[i])):
if array[i][j] > max_element:
max_element = array[i][j]
max_row = i
max_col = j
return max_element, max_row, max_col
# Ввод массива
array = []
print("Введите элементы массива (по одному числу в строке):")
for _ in range(5):
row = []
for _ in range(5):
element = int(input())
row.append(element)
array.append(row)
# Нахождение максимального элемента и его местоположения
max_element, max_row, max_col = find_max_element(array)
# Вывод результатов
print("Массив:")
for row in array:
print(row)
print(f"Максимальный элемент: {max_element}")
print(f"Местоположение: строка {max_row + 1}, столбец {max_col + 1}")
Программа сначала запрашивает у пользователя ввод элементов массива по одному числу в строке. Затем она находит максимальный элемент и его местоположение с помощью функции find_max_element
. В конце программа выводит исходный массив, максимальный элемент и его местоположение (индексы строк и столбцов начинаются с 1, а не с 0).


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili