Question

Заполнить массив а из 15 целых чисел случайными элементами из диапазона от 0 до 101. заполнить массив b по формуле: b[i]: =a[i]+10. размерности массивов a и b одинаковые. вывести оба массива на экран. сделать в паскале. информатика, 9 класс. заранее .

Answer 1

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018// Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(15, 0, 101);

 a.Println;

 var b := a.Select(t -> t + 10).ToArray;

 b.Println

end.

27 39 18 86 98 61 17 79 52 4 77 95 35 67 6637 49 28 96 108 71 27 89 62 14 87 105 45 77 76

Answer 2

Код (Pascal)

var

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

 i: integer;

begin

 for i := 1 to 15 do

 begin

   a[i] := random(102);

   b[i] := a[i] + 10;

 end;

 writeln('Массив A:');

 for i := 1 to 15 do

   write(a[i], ' ');

 writeln;

 writeln('Массив B:');

 for i := 1 to 15 do

   write(b[i], ' ');

 writeln;

end.