Question

Паскаль: Дан массив из 10 случ чисел, числа в интервале от 15 до 80. Вывести на экран значение выражения 2*s+20, где s - сумма элементов массива.

Answer 1

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

begin
  var x := ArrRandom(10, 15, 80).Println.Sum;
  Writeln(2 * x + 20);
end.

Пример
61 21 38 42 30 42 21 28 48 17
716

Answer 2

Конечно, давайте напишем программу на языке программирования Pascal, чтобы решить эту задачу. Вот пример кода:

program SumAndExpression;

const
  N = 10; // Количество элементов в массиве
  LowerBound = 15; // Нижняя граница для случайных чисел
  UpperBound = 80; // Верхняя граница для случайных чисел

var
  numbers: array[1..N] of Integer;
  sum, i: Integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

// Заполнение массива случайными числами от 15 до 80
  for i := 1 to N do
    numbers[i] := Random(UpperBound - LowerBound + 1) + LowerBound;

// Вычисление суммы элементов массива
  sum := 0;
  for i := 1 to N do
    sum := sum + numbers[i];

// Вывод суммы на экран
  writeln('Сумма элементов массива: ', sum);

// Вывод значения выражения 2*s+20 на экран
  writeln('Значение выражения 2*s + 20: ', 2 * sum + 20);
end.

В этом примере мы используем массив `numbers` для хранения 10 случайных чисел в интервале от 15 до 80. Затем мы вычисляем сумму элементов этого массива и выводим ее на экран. Далее, вычисляем значение выражения `2 * s + 20`, где `s` - сумма элементов массива, и также выводим его на экран.

Обратите внимание, что в Pascal индексы массивов начинаются с 1, поэтому мы используем от 1 до N при работе с массивом.