Дан массив целых чисел из n элементов

[MISTER_88]

Delphi.
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-20;40].
1. Найти удвоенную сумму положительных элементов.
2. Вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго).
3. Определить, есть ли две пары соседних элементов с одинаковыми знаками.
Заранее благодарен)

вот наработки 1 задания. Что сделано неверно?

var
  Form1: TForm1;
   a:array of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i,n:integer;
begin
  n:=strtoint(edit1.Text);
  setlength(a,n);
  randomize;
   edit2.Text:='';
  for i:=0 to n-1 do
 begin
  a[i]:=random(60)-20;
  edit2.Text:=edit2.Text+' '+inttostr(a[i]);
end;
  end;

procedure TForm1.Button2Click(Sender: TObject);
const n=20;
var
i:integer;
s:real;
begin
   s:=0;
  for i:=1 to n do
   if i>0 then
   s:=(a[i]+n)*2;
  edit3.Text:=floattostr(s);
 end;
end.

[GetMax]

Что сделано неверно?

1. В процедуре Button1Click у вас значение переменной n берется из Edit1, а в процедуре Button2Click n является константой. Но если в первой процедуре n будет меньше 20 (соответственно и массив будет менее 20 элементов), то вы получите выход за пределы границ массива. Просто опишите n глобально и используйте всегда одно значение

var
Form1: TForm1;
a:array of integer;
n:Integer;

2. процедура нахождения удвоенной суммы положительных элементов написано абсолютно неверно

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:word;
begin
s:=0;
for i:=0 to n-1 do
if a[i]>0 then s:= s + a[i];
s:=s*2;
edit3.Text:=inttostr(s);
end;

[MISTER_88]

GetMax, спасибо за совет) Но 2 кнопка не работает( Показывает в поле edit2 занчение 0.. как бы не генерировались цифры в массиве...

[GetMax]

Но 2 кнопка не работает( Показывает в поле edit2 занчение 0.. как бы не генерировались цифры в массиве...

Проверил у себя. Все работает. Косяк в вашем коде где то

[krakatau]

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


Кто шарит помогите со вторым и третьим заданием