Question

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

Answer 1

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

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

begin

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

 a.Println;

 a.Sum.Println;

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

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

     .Sum(t -> t[0]).Println

end.

Пример

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

172

48

72

Answer 2

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.