Developing.ru

Так и надо говорить - сделайте за меня, я ничего не знаю и знать не хочу.
[syntax=Delphi]
for i:=1 to n do begin
arr:=random(21)-10;
if (odd(arr)) then inc(sum_odd);
if (arr > A) then writeln('ARR[',i,'] > ',A);
if (arr>0 and arr mod k=0) then writeln (arr,' mod ', k,' = 0');
end;
[/syntax]

Да я в этом вообще не шарю, чтоб закрыть сессию я должен принести решенные задания.

Каждое из заданий - на три строки. В чем сложность? Случайные значения получить? В цикле по массиву пройтись? Проверить на нечетность (x mod 2=1 или odd(x))? Сравнить одно число с другим? Проверить кратность (x mod k=0)?

Скора сессия, Помогите плиз с заданием
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, имеющих нечетное значение.

2. Вывести индексы тех элементов, значения которых больше заданного числа А.

3. Определить, есть ли в данном массиве положительные элементы, кратные заданному числу К.