Question

Дан массив L, содержащий 40 элементов в интервале от 10 до 50, замените первый и последний элементы массива. Заранее буду благодарен, сделайте в паскале.

Answer 1

Var a : array[1..n] of integer;
     b,i : integer;
begin
Randomize;
 for i:=1 to n do
 begin
  a[i]:=random(41)+10;
   write(a[i],' ');
end;
writeln;
 b:=a[1]; a[1]:=a[n]; a[n]:=b;
for i:=1 to n do write(a[i],' ');
writeln
end.

Answer 2

Добрый день! Я могу помочь вам с заменой первого и последнего элементов массива в Pascal. Вот пример кода:

program ReplaceFirstAndLastElement;

var
  L: array[1..40] of Integer;
  i, temp: Integer;

begin
  // Заполняем массив L случайными числами в интервале от 10 до 50
  Randomize;
  for i := 1 to 40 do
    L[i] := Random(41) + 10;

// Выводим исходный массив L
  writeln('Исходный массив L:');
  for i := 1 to 40 do
    write(L[i], ' ');
  writeln;

// Заменяем первый и последний элементы массива
  temp := L[1];
  L[1] := L[40];
  L[40] := temp;

// Выводим измененный массив L
  writeln('Массив L с замененными первым и последним элементами:');
  for i := 1 to 40 do
    write(L[i], ' ');
  writeln;

readln;
end.

В этом примере мы создаем массив `L` размером 40 элементов и заполняем его случайными числами в интервале от 10 до 50. Затем мы выводим исходный массив, заменяем первый и последний элементы массива, и выводим измененный массив.

Обратите внимание, что в данном примере используется генератор случайных чисел для заполнения массива. Если вам нужно конкретное значение для элементов массива, вы можете изменить код соответствующим образом.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать.