[Pilot_Red]

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

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  for I := 1 to 10
    a[i] := i;
end;

что бы чуть-чуть понять эту кухню

[angvelem]

Оффтоп:
Это только для теста

[Rinat41]

Просто ввожу числа в ячейки при запуске проги, нажимаю кнопку и все.

[Pilot_Red]

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

Просто ввожу числа в ячейки при запуске проги, нажимаю кнопку и все.

Rinat41, почитай книжечки по программированию хотя бы от А до Г потому что чем больше ответов, тем больше вопросов...

[Rinat41]

Вот, теперь работает первая часть, работаю над вторым вопросом в задании.

Код:

unit lab;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..10] of real;
summ:real;
summd:real;
i,l,m:integer;
const n=10;
begin
for i:= 1 to n do

if Length(StringGrid1.Cells[i-1, 0]) <>0
then a[i]:= StrToFloat(StringGrid1.Cells[i-1,0])
else a[i]:= 0;

summ:=0;

for i:=1 to n do

if i mod 2<>0 then summ:= summ + a[i];

Label1.Caption:='Сумма1: ' + FloatToStr(summ);

l:=0;
m:=0;

for i:=1 to n do
if a[i]<0 then
begin
m:=i;
break;
end;

for i:=n downto m do
if a[i]<0 then
begin
l:=i;
break;
end;

summd:=0;
for i:=l+1 to m-1 do
summd:=summd + a[i];

Label2.Caption:='Сумма2: ' + FloatToStr(summd);
end;

end.

теперь вторая сумма выводит "0"

[Konrad]

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

Код:

summ:=0;
for i:=1 to n do
if i mod 2<>0 then summ:= summ + a[i];
Label1.Caption:='Сумма1: ' + FloatToStr(summ);

Хит сезона... Ну кто так вас учит программировать то????

На форуме уже обсуждали задание: вычислить сумму четных/нечетных элементов.
Поищи...

[Pilot_Red]

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

2)сумму элементов массива, расположенных между первым и последним отрицательными элементами.

а если в массиве отсутствуют отрицательные элементы, а если в массиве только один отрицательный элемент, а если два отрицательных элемента идут друг за другом. а если есть отрицательный элемент массива и он по списку - последний????

ЧТО ДЕЛАТЬ ТОГДА