Question

Напишите на паскале программу,которая сгенерирует массив из 20 элементов случайным образом в диапазоне от -15 до 15 Так же нужно чтобы программа считала сумму элементов больше 9,и ещё одна такая же,но которая уже считает сумму чётных элементов

Answer 1

Ответ:

pascal

Объяснение:

1)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] > 9 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма элементов, больших 9, равна ', s);

end.

2)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] mod 2 = 0 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма четных элементов равна ', s);

end.

Answer 2

Вот пример программы на паскале, которая генерирует массив из 20 элементов случайным образом в диапазоне от -15 до 15 и считает сумму элементов больше 9 и сумму четных элементов:

program RandomArray;

var
  arr: array[1..20] of Integer;
  i, sum, evenSum: Integer;

begin
  Randomize;

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

sum := 0;
  evenSum := 0;

// Считаем сумму элементов больше 9 и сумму четных элементов
  for i := 1 to 20 do
  begin
    if arr[i] > 9 then
      sum := sum + arr[i];

if arr[i] mod 2 = 0 then
      evenSum := evenSum + arr[i];
  end;

// Выводим массив и суммы на экран
  writeln('Массив:');
  for i := 1 to 20 do
    write(arr[i], ' ');
  
  writeln;
  writeln('Сумма элементов больше 9:', sum);
  writeln('Сумма четных элементов:', evenSum);

readln;
end.

Программа сначала использует функцию `Randomize` для инициализации генератора случайных чисел. Затем она заполняет массив `arr` случайными числами от -15 до 15 с помощью цикла `for`.

Далее, суммы элементов больше 9 и четных элементов считаются с помощью второго цикла `for`. Внутри цикла проверяется условие `arr[i] > 9`, и если оно истинно, то значение `arr[i]` добавляется к переменной `sum`. Также проверяется условие `arr[i] mod 2 = 0`, которое означает, что элемент `arr[i]` является четным числом. Если условие истинно, то значение `arr[i]` добавляется к переменной `evenSum`.

Наконец, массив и суммы выводятся на экран с помощью процедуры `writeln`, и программа ожидает ввода пользователя с помощью `readln`.