Question

Составьте программу, которая заполняет массив a [1..10] случайными числами от 0 до 10, затем первый элемент поменяйте местами с минимальным элементом массива. Pascal abc, 10 класс

Answer 1

Відповідь:

program ArrayManipulation;

const

 N = 10;

var

 a: array[1..N] of Integer;

 i, minIndex, temp: Integer;

begin

 Randomize;

 // Заполняем массив случайными числами от 0 до 10

 for i := 1 to N do

   a[i] := Random(11); // Random(11) генерирует случайное число от 0 до 10

 // Выводим исходный массив

 writeln('Исходный массив:');

 for i := 1 to N do

   write(a[i], ' ');

 writeln;

 // Находим индекс минимального элемента

 minIndex := 1;

 for i := 2 to N do

   if a[i] < a[minIndex] then

     minIndex := i;

 // Меняем местами первый элемент и минимальный элемент

 temp := a[1];

 a[1] := a[minIndex];

 a[minIndex] := temp;

 // Выводим измененный массив

 writeln('Массив после замены:');

 for i := 1 to N do

   write(a[i], ' ');

 writeln;

end.

Пояснення:

Answer 2

## // PascalАВС.NЕТ 3.9

var a := ArrRandom(10, 0, 9);

a.Println;

Swap(a[0], a[a.IndexMin]);

a.Print