Массивы в Delphi

[snejnbumer]

Помогите решить 2 задачи.



1. Дан одномерный массив из отрицательных элементов этого массива сформировать новый одномерный массив.

2. Дан одномерный массив x0, x1,..., xn. Подсчитать количество, сумму, произведение элементов превышающий 100.

[min@y™]

Помогите решить

Эти 2 слова давно пора добавить в алерт-лист антиспам-бота.

Дан одномерный массив из отрицательных элементов этого массива. Сформировать новый одномерный массив.

Дан одномерный массив x0, x1,..., xn. Подсчитать количество, сумму, произведение элементов превышающий 100.

[Stilet]

snejnbumer

Попытки какие-нибудь были?
Иначе по ТЗ так получается:

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);
const
  //Дан массив
  a:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,0);
var
  b:array[1..10] of integer; i:integer;
  c:array of integer;
begin
 //Берем отрицательные элементы этого массива
 for i:=low(a) to high(a) do if a[i]<0 then b[i]:=a[i];;
 //Сформируем новый одомерный массив
 SetLength(c,10);
end;

end.