Дата публикации:

Нахождение минимального элемента массива 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.