массивы задачи

[Yuuuu]

Всем доброго времени суток!
Плиз, проверьте задачу. Что-то не идёт..

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

var a:array[1..100] of integer;
i,n,s,b,f,x:integer;
begin
write('Введите размер массива: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10)-10;
write(a[i],' ');
end;
writeln;
write('Введите число X: ');
readln(x);
for i:=1 to n do begin
if a[i]>0 then f:=2*(f+a[i]);
end;
write('Сумма отрицательных= ',f);
writeln;
writeln;
end.

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

Спасибо!

[Hacker19_90]

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

for i := 2 to n do
    if a[i] > a[i-1] then Writeln(i);

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

sum := 0;
randomize;
for i := 1 to n do
begin
    a[i] := random(10) - 5;
    if a[i] > 0 then Inc(sum, a[i]);
end;
Writeln (sum*2);

[Yuuuu]

Сообщение от Hacker19_90

for i := 2 to n do
    if a[i] > a[i-1] then Writeln(i);

Супер! Спасибо! А в первой задачке ошибки не видно?

[Hacker19_90]

А в первой задачке ошибки не видно?

1) Рандом

a[i]:=random(10)-10;

Получите только отрицательные числа!
2) Нахождение суммы

for i:=1 to n do begin
if a[i]>0 then f:=2*(f+a[i]);

не верно!
3) При чём тут отрицательные?

write('Сумма отрицательных= ',f);