Question

Дан массив из 10 элементов. Преобразовать массив, прибавив к нечётным элементам единицу.Пример массива: 1 2 3 4 5 6 7 8 9 10. Pascal!!!

Answer 1

Program znanija;var i,n:integer;a:array[1..10] of integer;beginfor i:=1 to 10 do begin  writeln('Введите ',i,'-ый элемент массива');  read(a[i]);  if a[i] mod 2 = 1 then a[i]:=a[i]+1;  end;writeln;writeln; writeln('Новый массив:');for i:=1 to 10 do   writeln(a[i],'(',i,')');end.
  

Answer 2

Вот как вы можете выполнить это преобразование массива в Pascal:

pascalCopy code
program IncrementOddElements;
var
  arr: array[1..10] of Integer;
  i: Integer;
begin
  // Инициализация массива
  for i := 1 to 10 do
    arr[i] := i;

  // Преобразование массива, прибавляя единицу к нечётным элементам
  for i := 1 to 10 do
  begin
    if arr[i] mod 2 <> 0 then
      arr[i] := arr[i] + 1;
  end;

  // Вывод преобразованного массива
  writeln('Преобразованный массив:');
  for i := 1 to 10 do
    write(arr[i], ' ');

  readln;
end.

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