Вопрос пользователя:
найти наименьший элемент в двумерном массива?
Илюха отвечает:
На языке Паскаль:
const n=5; – объявляем константу n, в которой будет храниться размер двумерного массива
var a:array [1..n,1..n] of integer;-объявляем массив
min:integer;-объявление переменной где будет храниться минимальный элемент
i,j:byte;-объявляем две вспомогательные переменные для цикла
begin – тело программы
for i:=1 to n do – цикл по строкам
for j:=1 to n do begin – цикл по столбцам
readln(a[i,j]); – вводим элемент в массив
if (i=1) and (j=1) then min:=min:=a[i,j]; – здесь происходит присваивание первого элемента для сравнения с последующими
if min>a[i,j] then min:=a[i,j]; – проверяем на условие минимума, если переменная min больше элемента массива, то присваиваем ей значение массива
end;
writeln(‘Минимальный элемент двумерного массива=’,min); – вывод минимального элемента
end.