Question

13. Задать массив генератором случайных чисел в диапазоне (-35,35]. Найти сумму элементов массива, стоящих на четных местах, и вывести на экран все элементымассива, кратные 5. Решить в паскале ​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -35, 35);

 a.Println;

 var s := 0;

 for var i := 0 to a.High do

 begin

   if i.IsOdd then

     s += a[i];

   if a[i] mod 5 = 0 then

     Print(a[i])

 end;

 Writeln;

 Println('Сумма', s)

end.

Answer 2

Вот пример решения данной задачи на языке Pascal:

pascalCopy code
program SumAndMultiples;
const
  N = 10; // размер массива
var
  arr: array[1..N] of integer;
  i, sum: integer;
begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to N do
    arr[i] := Random(71) - 35; // Генерация случайного числа в диапазоне (-35, 35]

  // Подсчет суммы элементов массива на четных позициях
  sum := 0;
  for i := 2 to N step 2 do
    sum := sum + arr[i];

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

  // Вывод суммы элементов массива на четных позициях
  writeln('Сумма элементов на четных позициях: ', sum);

  readln;
end.

Эта программа создает массив arr размером N и заполняет его случайными числами в диапазоне (-35, 35]. Затем она находит сумму элементов массива на четных позициях и выводит все элементы массива, которые кратны 5.