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

{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.