Пожалуйста, помогите составить программы для решения следующих задач.

Добого времени суток.

Ну, а язык-то какой? Или интересуют общие принципы? Здесь телепатов нет.

1. Первый кратный 3 элемент будет третий, поэтому переменной, которая будет использоваться в качестве индекса присваиваете 3, обнуляете переменные для суммы и количества, а затем в цикле пока индекс меньше или равен 10, суммируете соответствующие элементы массива, инкрементируете на 1 считчик элементов и на 3 переменную-индекс.

2. Переменной, где будете накапливать произведение присваиваете 1, а счетчику элементов 0. Затем в цикле от 1 до 14 проверяете каждый элемент и если элемент меньше 0 и при этом его остаток от деления на 2 равен 1, то тогда накапливаете произведение этих элементов и, одновременно, их количество. Средним геометрическим найденных чисел будет корень n-й степени из получившегося произведения.

3. Переменной для максимального и минимального значений присваиваете значение первого элемента массива, а затем в цикле от 2 до последнего элемента проверяете текущий элемент на больше (меньше) максимального (минимального) и если это так, заменяете соответствующее значение мкасимального (минимального) элемента.

4.Аналогично предыдущей задаче. Только нужно выбирать четные элементы и в отдельной переменной запоминать индекс минимального значения.

Успел во-время посмотреть про язык-то.. . :-)

3.
MinN := A[1];
MaxN := A[1];
for j:=2 to 12 do begin
if MinN > A[j] then MinN := A[j];
if MaxN < A[j] then MaxN := A[j];
end;

Result := Abs(MaxN - MinN);

4.
MinN := A[1];
IdxN := 1;
for j:=2 to 15 do
if A[j] mod 2 = 0 then
if MinN > A[j] then begin
MinN := A[j];
IdxN := j;
end;

Надеюсь, вывод результатов сделаете сами.

Удачи!

ыыы с массивами у меня траблы (( немоггу помочь ((

На каком языке-то программы быть должны?