Question

Заполните массив 15 числами от -30 до 30. Замените все элементы массива на противоположные по знаку. Вывести на экран первый и второй массив. ​

Answer 1

на паскаль)

var

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

b:array[1..15] of integer;

i:integer;

Begin

randomize;

for i:=1 to 15 do Begin

a[i]:=random(61)-30;

if a[i]<=0 then b[i]:=abs(a[i])

else b[i]:=a[i]-a[i]*2;

end;

for i:=1 to 15 do Write(a[i],' ');

Writeln();

for i:=1 to 15 do Write(b[i],' ');

end.