Question

Помогите решить задачу в фри паскале на тему массив:уменьшить элементы,стоящие на четных местах на второй элемент массива

Answer 1

Var
  i,n:integer;
  a:array[1..10]of integer;
begin
write('Исходный массив');
for i:=1 to 10 do
  begin
  a[i]:=random(10);
  write(a[i],' ');
  end;
writeln;
n:=a[2];
writeln('Преобразованный массив');
for i:=1 to 10 do
  begin
  if (i mod 2=0) then a[i]:=a[i]-n;
  write(a[i],' ');
  end;
end.

Answer 2

Для решения этой задачи вам нужно создать массив, заполнить его значениями и затем изменить элементы, стоящие на четных местах на второй элемент массива.

Вот пример кода на Free Pascal:

program ChangeArrayElements;

var
  arr: array[1..10] of Integer;
  i: Integer;

begin
  // заполняем массив случайными значениями
  Randomize;
  for i := 1 to 10 do
  begin
    arr[i] := Random(100);
    Write(arr[i], ' ');
  end;
  Writeln;

// изменяем элементы на четных позициях
  for i := 2 to 10 step 2 do
  begin
    arr[i] := arr[2];
  end;

// выводим измененный массив
  for i := 1 to 10 do
  begin
    Write(arr[i], ' ');
  end;
end.

В этом примере мы создаем массив arr из 10 элементов и заполняем его случайными значениями. Затем мы изменяем элементы на четных позициях, присваивая им значение второго элемента массива. И наконец, мы выводим измененный массив.

Вы можете изменить размер массива и значения элементов в соответствии с вашими потребностями.