1) дан массив из 10 целых чисел. Найти минимальный элемент массива 2)дан массив из 7 целых чисел. Заменить все отрицательные числа на их модуль. Вывести элементы массива В паскале надо

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

1) Пример кода на Pascal для поиска минимального элемента массива из 10 целых чисел:

program FindMinElement;
var
arr: array[1..10] of Integer;
i, minElement: Integer;
begin
minElement := MaxInt;
for i := 1 to 10 do
begin
// Ввод элементов массива
// Например: ReadLn(arr[i]);
// Поиск минимального элемента
if arr[i] < minElement then
minElement := arr[i];
end;
WriteLn('Минимальный элемент массива: ', minElement);
end.

2) Пример кода на Pascal для замены всех отрицательных чисел в массиве из 7 целых чисел на их модуль:

program ReplaceNegativeNumbers;
var
arr: array[1..7] of Integer;
i: Integer;
begin
for i := 1 to 7 do
begin
// Ввод элементов массива
// Например: ReadLn(arr[i]);
// Замена отрицательных чисел на их модуль
if arr[i] < 0 then
arr[i] := abs(arr[i]);
end;
for i := 1 to 7 do
Write(arr[i], ' ');
end.