Question

Составьте программу суммирования элементов целочисленного массива "а" из 20 элементов случайными числами от 0 до 99.(паскаль)

Answer 1

Ответ:

program sum;

var a: array[0..19] of integer;

var i, s: integer;

begin

 s:=0;

 // Заполнение массива случайными числами

 for i:=0 to 19 do a[i]:=random(100);

 // Складываем числа в массиве

 for i:=0 to 19 do s:=s+a[i];

 writeln(s);

end.

Объяснение:

Answer 2

Вот пример программы на языке Pascal, которая создает массив из 20 случайных целых чисел от 0 до 99 и затем суммирует элементы этого массива:

pascalCopy code
program SumArray;

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

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

  // Заполняем массив случайными числами от 0 до 99
  for i := 1 to 20 do
    a[i] := random(100); // random(100) генерирует случайное число от 0 до 99

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

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

  readln;
end.

Эта программа создает массив a из 20 элементов, заполняет его случайными числами от 0 до 99, затем суммирует все элементы массива и выводит сумму на экран.