Question

Заполнить массив из 15 элементов случайным образом целыми значениями, лежащими в диапазоне от 2 до 23. найти сумму квадратов всех элементов массива. Увеличить все элементы на последний элемент.

Answer 1

//Pascal ABC.NET v3.1 сборка 1219
Const 
n=15;

 Var
 ar:array[1..n] of integer; 
sum,i:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(2,23);
   write(ar[i]:4);
   sum:=sum+sqr(ar[i]);
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]+ar[n];
   write(ar[i]:4);
  end;
end.

Пример работы программы:
First array:
  19  21  10  13   7  13   9   2  22  20  10   7  17   7  22
Sum=3229
Final array:
  41  43  32  35  29  35  31  24  44  42  32  29  39  29  44

Answer 2

Для начала, создадим массив из 15 элементов и заполним его случайными целыми значениями в диапазоне от 2 до 23:

import random

array = [random.randint(2, 23) for _ in range(15)]

Далее, найдем сумму квадратов всех элементов массива:

sum_of_squares = sum([x ** 2 for x in array])

Теперь, увеличим все элементы массива на последний элемент:

last_element = array[-1] array = [x + last_element for x in array]

Вот полный код:

import random

array = [random.randint(2, 23) for _ in range(15)]

sum_of_squares = sum([x ** 2 for x in array])

last_element = array[-1] array = [x + last_element for x in array]

print("Массив:", array) print("Сумма квадратов всех элементов массива:", sum_of_squares)

Обратите внимание, что каждый раз при запуске кода, значения массива будут разными, так как они генерируются случайным образом.