Question

1. Дан массив из 5 элементов, состоящий только из 0 и 1 (вводим с клавиатуры) Заменить все нули на -1 и вывести новый массив на экран. (Паскаль). 2.В массиве состоящем из 10 (вводим с клавиатуры) элементов утроить элементы стоящие на четных местах. Вывести новый массив на экран. (Паскаль) Помогите очень нужно((​

Answer 1

1)

const

 n=5;

var

 a:array [1..n] of integer;

 i:integer;

begin

 for i:=1 to n do

   begin

     readln(a[i]);

     if a[i]=0 then a[i]:=-1;

   end;

 writeln;

 for i:=1 to n do

   write(a[i]:4);

end.

2)

const

 n=10;

var

 a:array [1..n] of integer;

 i:integer;

begin

 for i:=1 to n do

   begin

     readln(a[i]);

     if i mod 2 = 0 then

       a[i]:=a[i]*3;

   end;

 writeln;

 for i:=1 to n do

   write(a[i]:4);

end.

Answer 2

1. Замена нулей на -1 в массиве

Для замены всех нулей на -1 в массиве из 5 элементов, состоящем только из 0 и 1, вам потребуется выполнить следующие шаги:

1. Создайте массив из 5 элементов и заполните его значениями, введенными с клавиатуры. 2. Пройдитесь по каждому элементу массива и замените все нули на -1. 3. Выведите новый массив на экран.

Вот пример кода на языке Pascal, который реализует эту задачу:

program ReplaceZeros;
var
  arr: array[1..5] of Integer;
  i: Integer;
begin
  // Ввод значений с клавиатуры
  for i := 1 to 5 do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

// Замена нулей на -1
  for i := 1 to 5 do
  begin
    if arr[i] = 0 then
      arr[i] := -1;
  end;

// Вывод нового массива на экран
  WriteLn('Новый массив:');
  for i := 1 to 5 do
  begin
    WriteLn(arr[i]);
  end;
end.

После запуска программы вы сможете ввести значения элементов массива с клавиатуры, а затем увидеть новый массив, в котором все нули заменены на -1.

2. Утроение элементов на четных местах в массиве

Для утроения элементов, стоящих на четных местах в массиве из 10 элементов, введенных с клавиатуры, вам потребуется выполнить следующие шаги:

1. Создайте массив из 10 элементов и заполните его значениями, введенными с клавиатуры. 2. Пройдитесь по каждому элементу массива и утройте значение элемента, если его индекс является четным числом. 3. Выведите новый массив на экран.

Вот пример кода на языке Pascal, который реализует эту задачу:

program TripleElements;
var
  arr: array[1..10] of Integer;
  i: Integer;
begin
  // Ввод значений с клавиатуры
  for i := 1 to 10 do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

// Утроение элементов на четных местах
  for i := 1 to 10 do
  begin
    if i mod 2 = 0 then
      arr[i] := arr[i] * 3;
  end;

// Вывод нового массива на экран
  WriteLn('Новый массив:');
  for i := 1 to 10 do
  begin
    WriteLn(arr[i]);
  end;
end.

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