Delphi.Программирование циклических алгоритмов с предусловием

[Apollonchik]

Дан ряд неотрицательных вещественных чисел. Определить, сколько из них больше своих «соседей». Признак окончания ряда чисел - появление отрицательного числа. (Form Application)

[Stilet]

В чем сложности? Покажи как ряд вводишь.

[Apollonchik]

Вот это и есть основная проблема.

[Stilet]

А-а-а... Ясно:

procedure TForm1.FormCreate(Sender: TObject);
var a:array[1..2] of integer; i,k:integer;
begin
 i:=Low(a); while i<=High(a) do begin
  if TryStrToInt(InputBox('Введи','',''),k) then begin a[i]:=k; inc(i); end
  else ShowMessage('Татышутишь?');
 end;
end;

ИМХО это самое простое для ввода, если не использовать компоненты типа Grid

[_BYTE]

Stilet, зачет !!! даже я не знал про функции TryStrToInt и InputBox офигеть

з.ы. сорь за оффтоп

[Apollonchik]

Благодарю!))