задача delphi

[999]

В простую переменную последовательно вводятся N чисел. Сколько чисел больше своих соседей слева?

[Zer0]

c:=0;
readln(a1);
for i:=2 to n do begin
 readln(a2);
 if a2>a1 then inc(c);
 a1:=a2;
end;
writeln (c);

[alex_fcsm]

var cnt,i:byte;
      s:string;
.......
cnt:=0;
for i:=2 to length(s)-1 do
 if    s[i]>s[i+1] and s[i]>s[i-1] then inc(cnt);

[999]

Подскажите что значит запись floattostrf(s,ffFixed,10,5)?

[vovk]

преобразование действительное значение s в строку, используяФормат с фиксированной запятой, точностью 10 и числом цифр 5.

[999]

Заменить последний отрицательный элемент массива на модуль первого элемента массива.

[999]

Помогите пожалуйста!В чем ошибка? Заменить последний отрицательный элемент массива на модуль первого элемента массива.

var
  Form1: TForm1;
  N:integer;
  M:array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
Randomize;
N:=Strtoint(Edit1.Text);
setlength(M,N);
Edit2.Text:=' ';
for I := 0 to N-1 do
begin
  M[i]:=Round(Sin(Random(10))*10);
 M[n-1]<=0;
 Edit2.Text:=Edit2.Text+'   '+inttostr(M[i]);
end;

begin
m[n-1]:=abs( m[1]);
Edit3.Text:=Edit3.Text+'   '+inttostr(M[i]);
end;
end;
end.

[999]

Как записать что последний элемент массива отрицательный?

[vovk]

Может вы хотели спросит как найти последний отрицательный элемент массива?

[rUs_LAN]

последний это первый только с конца, если это понять проблем при написании программы не должно возникнуть.