Дан массив размера N и целые числа K и L

[Ken_Watanabe]

Добрый день. В делфи=>
Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N).
Найти сумму всех элементов массива, кроме элементов с номером от K до L включительно.

К примеру: N=3
1.39 0.30 2.00
K=2 L=3
1.39

[Serge_Bliznykov]

мда... Ken_Watanabe, программирование - это явно не ваше призвание в жизни...

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

Добрый день. В делфи=>

Добрый день. Что "в делфи" ? Вы будете что-то делать в Делфи? Или это так кратко приказ звучит?!


а программа, конечно, выеденного гроша не стоит...
изучайте:

var 
  A : array[1..N] of double;
  K, L : integer;
  Sum : double;
  i : integer;
begin
  // вводите массив и числа K и L

  Sum := 0;
  for i:=1 to K-1 do   Sum := Sum + A[i];
  for i:=L+1 to N do   Sum := Sum + A[i];

  // вывод результата. Например, в лейбл1
  Label1.Caption := 'Сумма равна ' + FloatToStr(Sum);

end;

[Stilet]

С потолочка:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var a:array of integer; s,i,k,l,n:integer;
begin
 k:=StrToIntDef(InputBox('Введи К','',''),0);
 l:=StrToIntDef(InputBox('Введи L','',''),0);
 n:=StrToIntDef(InputBox('Введи N','',''),0);
 SetLength(a,n);
 s:=0;
 for i:=Low(a) to High(a) do begin
   a[i]:=StrToIntDef(InputBox(format('Введи a[%d] - Элемент',[i]),'',''),0);
   if not (i in [k..l]) then s:=s+a[i];
 end;
 ShowMessage(format('Сумма элементов = %d',[s]));
 halt;
end;

end.