Заполнить массив А из 15 целых чисел случайными элементами из диапазона от 0 до 101....

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.

Comments

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; writeln(B[i]); end;end.

---

так короче в разы

---

ой, не прочитал о том, что вывести надо оба массива

---

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

---

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

---

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

---

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

---

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