Доброго времени суток.
Есть задание по лабам:
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) сумму элементов массива с нечетными номерами; 2)сумму элементов массива, расположенных между первым и последним отрицательными элементами. Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце массива элементы заполнить нулями.
Вот что пока что сделал:
Код:
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:integer;
const n=10;
begin
summ:=0;
summd:=0;
for i:=1 to 10 do
if i mod 2<>0 then summ:= summ + a[i];
Label1.Caption:='Сумма нечетных элементов: ' + FloatToStr(summ);
end;
end.
компилируется нормально, но при вычислении выходит число, к-е не может быть результатом вычисления.