Объяснение:
programm.top /pascal
Минимальный элемент массива
Главная Pascal Алгоритмы Алгоритмы поиска Минимальный элемент минимальный элемент массиваочень просто. Если это упорядоченный массив, то достаточно вернуть первое или последнее значение, в зависимости от того, как отсортированы данные, от наименьшего к наибольшему или от наибольших к наименьшим. Это очень простая задача.В случае с неотсортированным массивом, задача поиска минимального значения элемента сводиться к полному обходу всех элементов и выбора из них -минимума.
Код программы для поиска минимального, по значению, элемента неупорядоченного массива
{$CODEPAGE UTF8} program Minimal; const arrayLength = 10; var inputArray : array [1..arrayLength] of integer; minimum, i: integer; begin randomize; writeln ('Исходный массив: '); {заполнение случайными числами} for i := 1 to arrayLength do begin inputArray[i] := random(100); write (inputArray[i]:4); end; writeln; {поиск минимального значения} {считаем что первый элемент и есть минимальный} minimum := inputArray[1]; for i := 2 to arrayLength do if minimum > inputArray[i] then {если минимум больше текущего} minimum := inputArray[i]; {присваиваем ему текущее значение} write('Минимальный элемент массива ', minimum); readln; end.
var
a: array of integer;
i, n: integer;
begin
write('Введите n ');readln(n);
SetLength(a, n);
writeln('Исходный массив :');
for i := 0 to n - 1 do
begin
a[i] := random(-20, 20);write(a[i]:4);
end;
writeln;
writeln('Массив после обработки:');
for i := 0 to n - 1 do
begin
if a[i] < 0 then a[i] := 10;
write(a[i]:4);
end;
end.
Тестовое решение:
Введите n 10
Исходный массив :
-19 -14 -14 1 2 16 16 -6 0 19
Массив после обработки:
10 10 10 1 2 16 16 10 0 19