При помощи генератора случайных чисел задать одномерный А [10], состоящий из 10 целых...

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.

Comments

Спасибо большое