Дан массив, содержащий 12 элементов, определить номер элемента с минимальным квадратом. Напечатать номер и значение этого элемента. Результат распечатать в виде: Массив: imin= MIN=
В Pascal.

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

program MinSquareElement;

var
arr: array[1..12] of integer;
i, minElem, minSquareElem, minIndex: integer;

begin
// Заполняем массив случайными значениями
randomize;
for i := 1 to 12 do
arr[i] := random(21) - 10; // генерируем случайное значение от -10 до 10

minSquareElem := arr[1] * arr[1];
minIndex := 1;

// Находим элемент с минимальным квадратом
for i := 2 to 12 do
begin
if arr[i] arr[i] < minSquareElem then
begin
minSquareElem := arr[i] arr[i];
minIndex := i;
end;
end;

// Выводим результат
writeln('Массив: ');
for i := 1 to 12 do
write(arr[i], ' ');
writeln;
writeln('imin=', minIndex, ' MIN=', arr[minIndex]);
end.