Question

Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от -10 до 10, затем преобразовывает массив, заменяя все отрицательные элементы их модулями

Answer 1

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

i:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random(21)-10;

write(a[i]:4)

end;

writeln;

for i:=1 to 10 do

begin

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

write (a[i]:4)

end

end.

Answer 2

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, -10, 10);

 a.Println;

 a.Transform(t -> Abs(t));

 a.Println

end.

-1 -6 -8 4 10 -5 -7 -8 10 6

1 6 8 4 10 5 7 8 10 6