Question

Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен увеличенном на заданное с клавиатуры число соответствующему элементу исходного массива. Выведите на экран исходные и полученные результаты.

Answer 1

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

begin
  var a:=ArrRandom(15,-50,50); a.Println;
  var k:=ReadInteger('k=');
  a.Transform(b->b+k); a.Println;
end.

Пример
17 6 -14 24 -39 17 39 9 -19 -7 -25 18 -37 -32 -43
k= 13
30 19 -1 37 -26 30 52 22 -6 6 -12 31 -24 -19 -30

Answer 2

Var
A:array[1..15] of integer;
i,B:integer;
Begin
WriteLn('Введите целое число');
ReadLn(B);
For i:= 1 to 15 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ')
    End;
WriteLn;
For i:= 1 to 15 do
    Begin
    A[i]:=A[i]+B;
    Write(A[i],' ')
    End;

End.

Answer 3

Формирование массива и увеличение элементов

Для начала сформируем массив из 15 элементов с помощью датчика случайных чисел. Затем получим новый массив, в котором каждый элемент будет увеличен на заданное с клавиатуры число, соответствующее элементу исходного массива. Наконец, выведем на экран исходные и полученные результаты.

import random

# Формирование массива из 15 элементов с помощью датчика случайных чисел
original_array = [random.randint(1, 100) for _ in range(15)]

# Получение числа для увеличения элементов нового массива
increase_value = int(input("Введите число для увеличения элементов нового массива: "))

# Получение нового массива, увеличивая каждый элемент на заданное число
new_array = [element + increase_value for element in original_array]

# Вывод исходного и полученного массивов
print("Исходный массив:", original_array)
print("Новый массив:", new_array)

Теперь у нас есть код, который формирует массив из 15 элементов с помощью датчика случайных чисел, затем получает новый массив, увеличивая каждый элемент на заданное с клавиатуры число, и выводит на экран исходные и полученные результаты.