Корзина пуста
Нахождение минимального элемента массива pascal.
Нахождение минимального элемента массива pascal.
Для нахождения минимального элемента массива Pascal можно использовать следующий код:
var A: array[1..8, 1..7] of integer; I, J: byte; minElement: integer;
begin Randomize;
// Заполнение массива случайными значениями for I := 1 to 8 do begin for J := 1 to 7 do begin A[I, J] := Random(15); end; end;
// Нахождение минимального элемента minElement := A[1, 1]; // Предполагаем, что первый элемент минимальный
for I := 1 to 8 do begin for J := 1 to 7 do begin if A[I, J] < minElement then minElement := A[I, J]; end; end;
// Вывод минимального элемента WriteLn('Минимальный элемент массива: ', minElement); end.
a) Для определения, какой элемент двумерного массива меньше - расположенный в правом нижнем или в левом нижнем углу, можно использовать следующий код:
var A: array[1..8, 1..7] of integer; minElement1, minElement2: integer;
begin Randomize;
// Заполнение массива случайными значениями for I := 1 to 8 do begin for J := 1 to 7 do begin A[I, J] := Random(15); end; end;
// Нахождение минимального элемента в правом нижнем углу minElement1 := A[8, 7];
// Нахождение минимального элемента в левом нижнем углу minElement2 := A[8, 1];
// Вывод результатов if minElement1 < minElement2 then WriteLn('Элемент в правом нижнем углу меньше') else if minElement1 > minElement2 then WriteLn('Элемент в левом нижнем углу меньше') else WriteLn('Элементы равны'); end.
b) Для определения, какой элемент двумерного массива меньше - расположенный в правом верхнем или в левом нижнем углу, можно использовать следующий код:
var A: array[1..8, 1..7] of integer; minElement1, minElement2: integer;
begin Randomize;
// Заполнение массива случайными значениями for I := 1 to 8 do begin for J := 1 to 7 do begin A[I, J] := Random(15); end; end;
// Нахождение минимального элемента в правом верхнем углу minElement1 := A[1, 7];
// Нахождение минимального элемента в левом нижнем углу minElement2 := A[8, 1];
// Вывод результатов if minElement1 < minElement2 then WriteLn('Элемент в правом верхнем углу меньше') else if minElement1 > minElement2 then WriteLn('Элемент в левом нижнем углу меньше') else WriteLn('Элементы равны'); end.