Question

сформировать массив из 10 целых чисел увеличить каждый элемент массива на 5

Answer 1

Ответ:

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

i:Integer;

begin

write ('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(51);

write (a[i]:3)

end;

writeln;

write ('Массив ');

for i:=1 to 10 do

begin

a[i]:=a[i]+5;

write (a[i]:3)

end

end.

Answer 2

===== PascalABC.NET =====

begin

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

 a.Println;

 a.Transform(p -> p + 5);

 a.Println

end.