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

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