Question

составить программу которая поставит максимальный элемент массива на первое место(массив из 10 целых случайных чисел)

Answer 1

Var
  i,max,m:integer;
  a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
  begin
  a[i]:=random(50);
  write(a[i],' ');
  if a[i]>max then
     begin
     max:=a[i];
     m:=i;
     end;
  end;
writeln;
writeln('Измененный массив:');
i:=a[1];
a[1]:=a[m];
a[m]:=i;
for i:=1 to 10 do write(a[i],' ');
end.

Answer 2

Вот программа на языке Python, которая создает массив из 10 случайных целых чисел и перемещает максимальный элемент на первое место:

pythonCopy code
import random

# Создаем массив из 10 случайных целых чисел
array = [random.randint(1, 100) for _ in range(10)]

# Выводим исходный массив
print("Исходный массив:")
print(array)

# Находим максимальный элемент и его индекс
max_element = max(array)
max_index = array.index(max_element)

# Перемещаем максимальный элемент на первое место
array.pop(max_index)
array.insert(0, max_element)

# Выводим массив после перемещения максимального элемента
print("Массив после перемещения максимального элемента:")
print(array)

Этот код создает массив из 10 случайных целых чисел, находит максимальный элемент и перемещает его на первое место в массиве.