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

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