Задачи на массивы. Нужна сама задача и к ней решение. Желательно несколькозадачь.

{2 в 1) Задача: вывести сумму всех нечетных эелементов и сумму элеметнов стоящих на четных позициях}var a: array[1… 100] of integer; i, summ1, summ2, n: integer; begin summ1: =0; summ2: =0; randomize; write ('n='); readln (n); writeln ('Исходный массив: '); for i: =1 to n do begin a[i]: =random (51) — 25; write (a[i], '); if abs (a[i]) mod 2=1 then summ1: =summ1+a[i]; if i mod 2=0 then summ2: =summ2+a[i]; end; writeln; writeln ('Сумма нечетных элементов: ', summ1); writeln ('Сумма элементов стоящих на четных позициях: ', summ2); readln; end.