Массивчик delphi massiv4ik

[MrMorozko]

procedure TForm1.Button1Click(Sender: TObject);
var
a : array [0..50] of integer;
i, c : integer;
begin
n := StrToInt(Edit1.Text);
Label2.Caption := '';
for i := 0 to n do
 begin
  a[i] := Round(Sin(Random(-100))*100);
  if (a[i] > 0) and (a[i+1] < 0) or
      (a[i] < 0) and (a[i+1] > 0) then
         Label3.Caption := IntToStr(i) + ' и ' + IntToStr(i+1);
  Label2.Caption := Label2.Caption + IntToStr(a[i]) + '; ';
 end;
end;

всем привет))) почему работает не правильно де косяк...??

[GetMax]

почему работает не правильно

Переменная N не была объявлена и пропущено End; при закрытии цикла.

procedure TForm1.Button1Click(Sender: TObject);
var
a : array [1..50] of integer;
i, c , n : integer;
begin
n := StrToInt(Edit1.Text);
Label2.Caption := '';
for i := 1 to n do
 begin
  a[i] := Round(Sin(Random(-100))*100);
  if (a[i] > 0) and (a[i+1] < 0) or
      (a[i] < 0) and (a[i+1] > 0) then
         Label3.Caption := IntToStr(i) + ' и ' + IntToStr(i+1);
  Label2.Caption := Label2.Caption + IntToStr(a[i]) + '; ';

  End;
end;

end.

[MrMorozko]

нене не в этом проблемма сама задачка номера пары выдает неправильно ((((

[MrMorozko]

может что ли как то через WHILE это реализвать???подскажите как

[Mad_Cat]

сначала надо массив заполнять а потом проверять на >0 и <0

пример
у вас)
при i= 1 a1:=число a2=0(сюда число еще не вводили) а уже проверяем
и пролетаем)))
или вот так

procedure TForm1.Button1Click(Sender: TObject);
var
a : array [1..50] of integer;
i, c , n : integer;
begin
n := StrToInt(Edit1.Text);
Label2.Caption := '';
 a[1] := Round(Sin(Random(-100))*100);
Label2.Caption := Label2.Caption + IntToStr(a[1]) + '; ';
for i := 2 to n do
 begin
  a[i] := Round(Sin(Random(-100))*100);
  if (a[i] *a[i-1] < 0) then
         Label3.Caption := IntToStr(i-1) + ' и ' + IntToStr(i);
  Label2.Caption := Label2.Caption + IntToStr(a[i]) + '; ';

  End;
end;

end.

[GetMax]

нене не в этом проблемма сама задачка номера пары выдает неправильно ((((

А какое задание у вас?

может что ли как то через WHILE это реализвать???

Можно и через While.

[MrMorozko]

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

А какое задание у вас?

Можно и через While.

Найти номер первой пары соседниъ элементов с разными знаками

[MrMorozko]

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

сначала надо массив заполнять а потом проверять на >0 и <0

пример
у вас)
при i= 1 a1:=число a2=0(сюда число еще не вводили) а уже проверяем
и пролетаем)))
или вот так

Так тоже не правильно работает(((ОН КАК БЫ РАНДОМНО их выбивает иногда правильно иной раз нет

[MrMorozko]

Кто поможет разобраться в данном вопросе?

[GetMax]

Попробуйте так. Вроде все работает

procedure TForm1.Button1Click(Sender: TObject);
var
a : array [1..50] of integer;
i, c , n : integer;
begin
Randomize();
n := StrToInt(Edit1.Text);
Label2.Caption := '';
for i := 1 to n do
begin
  a[i] := Round(Sin(Random(-100))*100);
  Label2.Caption := Label2.Caption + IntToStr(a[i]) + '; ';
End;
  For i:=1 to N do
  if (a[i] > 0) and (a[i+1] < 0) or
      (a[i] < 0) and (a[i+1] > 0) then
  Begin
    Label3.Caption := IntToStr(i) + ' и ' + IntToStr(i+1);
    Break
  End;


end;

end.