Question

составьте программу на языке Паскаль, которая формирует массив C из 20 случайных целых чисел в промежутке [-64;87], и выводит сумму всех элементов этого массива.

Answer 1

program m1 ;

var i , x : integer ;

C: array[0..20] of integer;

begin

randomize;

x := 0 ;

for i := 1 to 20 do

C[i] := random(152) - 64 ;

for i := 1 to 20 do

writeln(C[i]) ;

for i := 1 to 20 do

x := x + C[i] ;

write(x);

end.

Answer 2

Программа на языке Паскаль для формирования массива и вычисления суммы элементов

Вот пример программы на языке Паскаль, которая формирует массив `C` из 20 случайных целых чисел в промежутке от -64 до 87 и выводит сумму всех элементов этого массива:

program SumOfArrayElements;

var
  C: array[1..20] of integer;
  i, sum: integer;

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

// Заполнение массива C случайными числами
  for i := 1 to 20 do
  begin
    C[i] := Random(152) - 64; // Генерация случайного числа в промежутке [-64; 87]
  end;

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

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

end.

В этой программе мы используем генератор случайных чисел `Randomize`, чтобы инициализировать генерацию случайных чисел. Затем мы заполняем массив `C` случайными числами в промежутке от -64 до 87 с помощью цикла `for`. После этого мы вычисляем сумму всех элементов массива `C` с помощью второго цикла `for`. Наконец, мы выводим полученную сумму на экран с помощью `writeln`.

Примечание: Программа генерирует случайные числа в промежутке от -64 до 87 с помощью функции `Random(152) - 64`. Функция `Random(152)` генерирует случайное число в диапазоне от 0 до 151, а затем мы вычитаем 64, чтобы получить числа в промежутке от -64 до 87.

Надеюсь, эта программа поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.