Дан массив заполненные числами [-100 ... 100], поменять знаки элементов массива на противоположные.

Question

Информатика

Снежана

17 апреля, 16:14

Дан массив заполненные числами [-100 ... 100], поменять знаки элементов массива на противоположные.

+1

Ответы (1)

Знаете ответ на вопрос?

Созонтий · Answer 1

Program n1;

const n=10;

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

i: integer;

begin

randomize;

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

for i:=1 to n do

begin

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

write (a[i],' ') ;

end;

writeln;

write ('полученный массив: ') ;

for i:=1 to n do

begin

a[i]:=-a[i];

write (a[i],' ') ;

end;

end.