задача на одномерный массив (delphi)

[Toxi]

помогите разобраться)
задание: заменить последний отрицательный элемент массива на модуль первого элемента массива.
По сути задача решена... но не могу понять почему когда ввожу количество элементов массива допустим 5, он выводит массив из 20 элементов)
буду очень благодарен если получу отредактированный код

var
  Form1: TForm1;
  a: array[0..19] of integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
begin
//setlength(a,n);
randomize;
//n:=strtoint (edit1.text);
edit2.Text:='';
for i:=0 to 19 do
begin
a[i]:=random (20)-10;
edit2.text:=edit2.Text+'    '+inttostr(a[i]);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,n,k,c:integer;
begin
for i:=0 to 19 do
begin
 if a[i]<0 then
 begin
 k:=i;
 end;
 end;
 a[k]:=abs(a[0]);
 edit3.text:='';
 for i:=0 to 19 do
 edit3.text:=edit3.text+'    '+inttostr(a[i]);
 end;


end.

[Toxi]

кстати не ругайтесь на то что я там закомментировал пару строчек, это я пробовал всяко по-разному решать задачу))

[grom333]

но не могу понять почему когда ввожу количество элементов массива допустим 5, он выводит массив из 20 элементов)

Потому что у Вас в коде стоит это:

for i:=0 to 19 do

Я так понял, Вы хотели сделать переменную n, как количество элементов? То тогда нужно сделать так:

for i:=0 to n-1 do

[d3qoot]

Заменить:

a: array of integer;

n:=strtoint (edit1.text);
setlength(a,n);

for i:=0 to n-1 do

[whatever]

но не могу понять почему когда ввожу количество элементов массива допустим 5, он выводит массив из 20 элементов

Конкретнее, куда вводишь? Что то я не заметил, чтобы информация бралась из каких-либо Edit'ов. И потом, у тебя везде

for i:=0 to 19 do

Вполне нормально, что он выводит все 20 элементов. может не стоило коментировать строчку

//n:=strtoint (edit1.text);

и циклы описывать вот так

for i:=0 to n-1 do

[ОФФТОП]фигасебе, как бывает...[/ОФФТОП]

[Toxi]

сделал как сказали...
теперь выдает ошибки:
[Error] Unit1.pas(37): Incompatible types
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
begin
setlength(a,n);
randomize;
n:=strtoint (edit1.text);
edit2.Text:='';
for i:=0 to n-1 do
begin
a[i]:=random (20)-10;
edit2.text:=edit2.Text+'    '+inttostr(a[i]);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,n,k,c:integer;
begin
for i:=0 to n-1 do
begin
 if a[i]<0 then
 begin
 k:=i;
 end;
 end;
 a[k]:=abs(a[0]);
 edit3.text:='';
 for i:=0 to n-1 do
 edit3.text:=edit3.text+'    '+inttostr(a[i]);
 end;


end.

[whatever]

Ты бы хоть строчку выделил, так не угадаешь, где тут 37ая

Скорее всего

setlength(a,n);
randomize;
n:=strtoint (edit1.text);

Первую и третью местами поменяй

[d3qoot]

Куда потерял

a: array of integer;

[Toxi]

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

Куда потерял

a: array of integer;

не потерял а просто не скопировал))

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

Ты бы хоть строчку выделил, так не угадаешь, где тут 37ая

Скорее всего

setlength(a,n);
randomize;
n:=strtoint (edit1.text);

Первую и третью местами поменяй

да, ругается на setlength...
поменял стрчки местами, не помогло

[Stilet]

procedure TForm1.Button2Click(Sender: TObject);
var
i,n,k,c:integer;b:boolean;
begin
edit3.text:='';b:=true;
for i:=0 to n-1 do begin
 if (a[i]<0) and b then  begin a[i]:=abs(a[0]);b:=false;end;
  edit3.text:=edit3.text+'    '+inttostr(a[i]);
end;
end;

Имхо так надежнее.

поменял стрчки местами, не помогло

Потому что у тебя массив финализированный: a: array[0..19] of integer;
А тебе сказали что нужен динамический в 8 посте.