и снова информатикадаю 30 балловсрочно

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(15, 0, 20);

 a.Println;

 a.Sum.Println;

 a.Where(t -gt; t mod 3 = 0).Sum.Println;

 a.Select((v, i)-gt; (v, i)).Where(t -gt; t[1].IsOdd)

     .Sum(t -gt; t[0]).Println

end.

Пример

16 0 12 11 9 14 8 13 10 11 19 5 9 18 17

172

48

72

program pr1;

var a:array[1..15] of integer;

     sum, sum_k, sum_c, i:integer;

Begin

      For i:=1 to 15 do:

             a[i]:=Random(21);

       writeln('Исходный массив: ');

       For i:=1 to 15 do:

              write(a[i], ' ');

       sum:=0;

       For i:=1 to 15 do:

                     sum:=sum+a[i];

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

       sum_k:=0;

       For i:=1 to 15 do:

                if a[i] mod 3 = 0 then

                        sun_k:=sum_k+a[i];

       writeln('Сумма частей кратных трем: ', sum_k);

       For i:=1 to 15 do:

                  if i mod 2 = 0 then

                          sum_c:=sum_c+a[i];

        writeln('Сумма частей на четных позициях массива одинакова: ', sum_c);

End.