Вариант 4, Задача с массивом Опции

[ASUS]

Здравствуйте! Помогите решить задачу
Дан массив целых чисел, состоящих из 10 элементов. Заполнить его с клавиатуры. Найти:
- удвоенную сумму положительных элементов;
- вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго)

Помогите....

Сообщение отредактировано: ASUS - 23.01.2007 19:20

[мисс_граффити]

сам что-то пробовал?
если да - показывай. если нет - пробуй....

[ASUS]

сам что-то пробовал?
если да - показывай. если нет - пробуй....

нет... я эту тему плохо знаю...

Добавлено:
Вот все что получается и это просто сумма, а не удвоенная...

 
var
a:array[1..10] of integer;
pr,i:integer;
begin
{ввод массива не пишу}
pp:=1;
for i:=1 to 10 do if a[i]>0 then pp:=pp*a[i];
writeln('произв.=',pp);
end.

.