Question

Заполнить массив из 10 элементов целыми случайными числами от -5 до 20, вывести на экран в сроку. Поменять знаки элементов на противоположные и вывести массив повторно

Answer 1

Var i:Integer;

A:array[1..10] of Integer ;

Begin

For i:=1 to 10 do begin

A[i]:=random(26)-5;

Write(A[i], ' ') ;end;

Writeln;

For i:=1 to 10 do begin

If A[i]<0 then A[i]:=abs(A[i])

Else A[i]:=-A[i];

Write(A[i], ' ') end;

End.