[Seidgin]

Всем доброго времени суток
Помогите плиз создать программу на Delphi с условием:

нужно чтоб программа считывала одномерный массив из 10 элементов с текстового файла и определяла произведение отрицательных элементов ?

Помогите плиз очень нужно

[angvelem]

При чём тут WEB-программирование? Считать из текстового файла можно построчно командой ReadLn, либо разом, к примеру, в TStringList. Проходим по циклу и сравниваем с 0, если меньше умножаем на предыдущее найденное значение, если найдено в перый раз, то запоминаем.

Код:

var
  I, J : Integer;
  buf : array[0..9] of Integer;
begin
  J := 0;
  for I := 0 to 9 do
    if buf[i] < 0 then
      if J = 0 then
        J := Buf[i]
      else
        J := J * buf[i];
end;

[Seidgin]

С темой я немного напутал, сор ...
Можете выложить всю программу ?
Или исходник за что огромное спасибо

[angvelem]

Для начала дай образец текстового файла, всё зависит от того как он устроен.

[Seidgin]

программа должна по идеи заполнить документ а потом прочесть его и найти то что по условию

[angvelem]

Как хранятся данные, построчно каждое значение или все значения в одной строке.

[Seidgin]

построчное значение

[angvelem]

Код:

var
  F : TextFile;
  buf : array[0..9] of Integer;
  S : String;
  I, J : Integer;
begin
{$I-}
  AssignFile(F, 'MyFile.txt');
  Reset(F, 1);
  for I := 0 to 9 do
  begin
    ReadLn(F, S);
    buf[i] := StrToInt(S);
  end;
  CloseFile(F);
{$I+}  
  J := 0;
  for I := 0 to 9 do
    if buf[i] < 0 then
      if J = 0 then
        J := Buf[i]
      else
        J := J * buf[i];
end;

Вот примерно так.

[Seidgin]

что то не работает или я не туда вставляю

[angvelem]

Это нужно вставить на кнопку для чтения файла. Файл 'MyFile.txt' уже должен быть.