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.