Заполнить массив А из 15 целых чисел случайными элементами из диапазона от 0 до 101. Заполнить массив B по формуле: B[i]:=A[i]+10. Размерности массивов A и B одинаковые. Вывести оба массива на экран.
Сделать в Паскале. Информатика, 9 класс. Заранее спасибо.

Поспешишь - известно что будет))

А "короче в разы" - это наверху. 6 строк.

Согласен. Наверху - красивое и лаконичное решение. Но когда я заглядываю в учебник по информатике, я вижу коды примерно в формате моего ответа. При всём уважении к Вам и Вашему стилю кода, мне кажется, было бы очень странно, если ученик, который не может написать "Hello world" без помощи учителя или одноклассников, вдруг приходит с решением в 6 строк не в "формате" кодов из учебника и говорит, что его решение работает только на последних версиях PascalABC.Net

Во-первых, не на последних, а на версиях не старше двух лет. Указана актуальная, в ней пример выполнен. Во-вторых, уже в достаточно многих школах сразу начинают учить писать в PascalABC.NET, уважая свое время и время школьников.

Если писать коротко и быстро, за урок можно в 3-4 раза больше всего успеть. А это - качество знаний.

// 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

Код (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.