Массив. Pascal. Хэлп. Дан массив V[1..n] записать вместо минимального элемента массива число 100.

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal:

program ReplaceMinElement;
const
n = 5; // Размер массива
var
V: array[1..n] of Integer;
minIndex, i: Integer;
begin
// Заполняем массив случайными числами
Randomize;
for i := 1 to n do
begin
V[i] := Random(100); // Генерируем числа от 0 до 99
Write(V[i], ' ');
end;
Writeln;
// Находим индекс минимального элемента массива
minIndex := 1;
for i := 2 to n do
begin
if V[i] < V[minIndex] then
minIndex := i;
end;
// Заменяем минимальный элемент на 100
V[minIndex] := 100;
// Выводим измененный массив
for i := 1 to n do
Write(V[i], ' ');
end.

Этот код создает массив случайных чисел, находит минимальный элемент, заменяет его на 100 и выводит измененный массив. Попробуйте запустить его в среде выполнения Pascal для проверки.