Question

При генератора случайных чисел задать одномерный а [10], состоящий из 10 целых чисел. вывести его на экран через пробел, затем вывести измененные массив. (у всех элементов исходного массива поменять знак на противоположный.) в исходном массиве числа лежат на интервале [-5 ; 5]. !

Answer 1

Const n = 10;
var a: array[1..n] of integer;
    i: integer;
begin
  randomize;
  writeln('массив:');
  for i:=1 to n do
  begin
    a[i]:=random(-5,5);
    write(a[i],' ');
    a[i]:=-a[i];
  end;  
  writeln;
  writeln('новый массив:');
  for i:=1 to n do write(a[i],' ');
end.