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

[Alexxx_screen]

скиньте пожалуйста если у кого такое имеется

[Alex11223]

У гугла есть:
http://www.cyberforum.ru/cpp-beginne...ead172415.html
http://programmersforum.ru/showthread.php?t=31736

http://forum.pascal.net.ru/lofiversi...hp/t28001.html
http://www.cyberforum.ru/pascal/thread20001.html

[veniside]

http://ideone.com/O6fH4

[Alexxx_screen]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
function countNegative(a: array of integer): integer;
var
  i, r: integer;
begin
  result := 0;
  for i := low(a) to high(a) do
    if (0 > a[i]) then
      inc(r);
  //
  countNegative:= r;
end;
 
const
  N = 2000;
 
var
  i: integer;
  a: array of integer;
begin
  SetLength(a, N);
  Randomize();
  for i := 0 to N - 1 do
    a[i] := MaxInt shr 1 - Random(MaxInt);
  //
  WriteLn('Num. of negative numbers: ', countNegative(a));

end;

end.

вот я взял этот код, что нужно на форму установить чтобы заработал он
?

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

[Alex11223]

Этот код никуда не выводит результат. Видимо это из консольного варианта копипаст:

WriteLn('Num. of negative numbers: ', countNegative(a));

[Alexxx_screen]

а как сделать чтобы выводило все?

помогите кто нибудь(

[fizteh]

Какой язык программирования? Я готов помочь.

[Alexxx_screen]

delphi, самое главное то забыл указать

что нужно исправить в коде что выше писал чтобы заработало??

[Alex11223]

Да много чего надо исправить — это копипаст консольной программы. Как минимум стоит создать таблицу (StringGrid) и массив брать оттуда.

[Alexxx_screen]

а как это все сделать?