Question

Паскаль. 1. Дан массив (задан с клавиатуры, количество элементов 10), содержащий положительные и отрицательные числа. Заменить все элементы массива на противоположные по знаку.​

Answer 1

var

mas: array[1..10] of integer;

i: integer;

begin

 for i := 1 to 10 do begin

 write('mas[',i,'] = ');

 readln(mas[i]);

 end;

 writeln('Obratnii massiv:');

 for i := 1 to 10 do begin

 mas[i]:=mas[i]*(-1);

 writeln('mas[',i,'] = ',mas[i]);

 end;

end.

Answer 2

Для решения этой задачи на языке программирования Pascal вам нужно выполнить следующие шаги:

1. Объявить массив.
2. Считать элементы массива с клавиатуры.
3. Пройти по всем элементам массива и заменить их на противоположные по знаку.

Вот пример кода на Pascal, который выполняет эти шаги:

pascalCopy code
program ReverseSign;
var
  arr: array[1..10] of Integer;
  i: Integer;
begin
  // Ввод элементов массива с клавиатуры
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Замена элементов на противоположные по знаку
  for i := 1 to 10 do
  begin
    arr[i] := -arr[i];
  end;

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

Этот код сначала считывает 10 целых чисел с клавиатуры и сохраняет их в массиве arr. Затем он проходит по всем элементам массива и меняет их знак на противоположный с помощью оператора arr[i] := -arr[i]. Наконец, измененный массив выводится на экран.