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 66

37 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.

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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