Question

Составьте программу, которая формирует массив из 15 случайных целых чисел, принадлежащих промежутку [-22, 33], заменяет положительные числа на 1 и выводит значение элементов массива до и после замены

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

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

begin

 var a := ArrRandom(15, -22, 33);

 a.Println;

 a.Transform(t -> t > 0 ? 1 : t);

 a.Println

end.

Пример

-16 7 14 8 18 7 -5 -3 -18 26 -3 -8 31 13 -1

-16 1 1 1 1 1 -5 -3 -18 1 -3 -8 1 1 -1

Answer 2

const n=15;

var i:integer;

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

begin

for i:=1 to n do

begin

a[i]:=random(56)-22;

write(a[i]:3,' ')

end;

writeln;

for i:=1 to n do

begin

if a[i]>0 then a[i]:=1;

write(a[i]:3,' ')

end

end.