Question

Задайте массив из 5 случайных элементов выведите на экран сумму элементов и сами элементы (паскаль)

Answer 1

Var
a: array [1..10] of integer;
i:integer;
sum:integer;

begin

For i:=1 to 5 do
  begin
  a[i]:=random(201)-100;
  write(a[i]); write(' ');
end;

for i := 1 to 5 do
  sum := sum + a[i];
  write('Сумма элементов массива = ', sum);
end.

Answer 2

Для генерации массива случайных элементов и вычисления их суммы в Pascal (PascalABC.NET), вы можете использовать следующий код:

pascalCopy code
program RandomArray;

var
  arr: array[1..5] of integer;
  i, sum: integer;

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

  // Заполнение массива случайными значениями от 1 до 100
  for i := 1 to 5 do
    arr[i] := Random(100) + 1;

  // Вывод элементов массива на экран
  writeln('Элементы массива:');
  for i := 1 to 5 do
    writeln('arr[', i, '] = ', arr[i]);

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

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

  readln;
end.

Этот код создает массив из 5 случайных элементов, заполняет его значениями от 1 до 100 и выводит на экран как элементы массива, так и сумму всех его элементов.