Question

Const N = 10; var arr: array[1..N] of integer; i: byte; begin randomize; for i:=1 to N do begin arr[i] := random(100) - 50; write(arr[i]:4); end; writeln; for i:=1 to N do arr[i] := -1 * arr[i]; for i:=1 to N do write(arr[i]:4); writeln; end. Что значит последний цикл?

Answer 1

Ответ:

const

 N = 10;

var

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

 i, k, j, new_x: integer;

begin

 randomize;

 writeln('Исходный массив:');

 for i := 1 to N do

 begin

   a[i] := random(100) - 50;

   write(a[i], ' ');

 end;

 writeln;

Answer 2

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

В данном случае, после выполнения последнего цикла, каждый элемент массива arr будет содержать значение, противоположное исходному значению, которое было сгенерировано в первом цикле. Например, если исходное значение элемента было 25, то после выполнения последнего цикла его значение станет -25. Это осуществляется путем умножения исходного значения на -1.