Помочите решить срочно нужно

[nikto-ne-vechen]

Решить задачу двумя способами – используя статическую и динамическую
память.
Даны натуральное число N и целые числа A 1, A 2, …, A N. Определить количество членов последовательности A 1, A 2, …, A N , являющихся нечётными числами/

[Stilet]

Ввод массива показать сможешь? Даже в статике, ась?

[nikto-ne-vechen]

Навряд ли, я этого вообще не понимаю. и где что брать не знаю. Вот единственное, что есть только задача сама.

[zvygin1964]

Тогда за деньги. Тут стеснительные все. Я нет.

[Stilet]

Что кровавый препод даже примерчика не дал?
Какие нонче преподы пошли жесткие...
А как тогда тебе отвечать, если фик его знает что тебе нужно?

[nikto-ne-vechen]

Зная, что нужно, чтобы случайный числа можно было выводить, а так же с клавиатуры. Самое главное сделать, а отвечать по этому не нужно будет..

Сейчас вот нашла это, там вот как раз, чтобы задавать размер массива и выводить можно было с клавиатуры и случайные числа

procedure TForm1.Button1Click(Sender: TObject);
   var i:integer;
begin
//memo1.Clear ;
    n:=strtoint(edit1.Text);
    setlength(mas,n);
    //memo1.Lines.Add('№  | Элемент');
   // memo1.Lines.Add('------------');
    for i:= 1 to n do
      begin
      mas[i]:=random(100)-random(100);
      memo1.Lines.Add(inttostr(i)+'    | '+floattostr(mas[i]));

      end;

   showmessage(floattostr(mas[n]));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

   n:=strtoint(edit1.Text);
k:=k+1;
  if k>n then
  begin
  showmessage('Ввод закончен');
  exit
  end;
mas[k]:=strtofloat(inputbox('Ввод данных','элемент массива=',''));
 memo2.Lines.Add(inttostr(k)+'    | '+floattostr(mas[k]));



 end;

procedure TForm1.FormActivate(Sender: TObject);
begin
    memo1.Clear ;
    //n:=strtoint(edit1.Text);
    memo1.Lines.Add('№  | Элемент');
    memo1.Lines.Add('---------------');
    memo2.Clear ;
    k:=0;
    //n:=strtoint(edit1.Text);
    memo2.Lines.Add('№  | Элемент');
    memo2.Lines.Add('---------------');
end;

end.

а как преобразовать это к своей задачи, не знаю

[Stilet]

Да уж... Во что лень святая с людьмя делат...

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

			{ TForm1 }

      TForm1 = class(TForm)
						Button1: TButton;
						Button2: TButton;
						procedure Button1Click(Sender: TObject);
						procedure Button2Click(Sender: TObject);
      private
            { private declarations }
        a:array of integer;
        b:array[1..100] of integer;
        oddd:integer;
      public
        procedure Sta;
        procedure Dyn;
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
      Sta;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      Dyn;
end;

procedure TForm1.Sta;
var i,n:integer;
begin oddd:=0;
 n:=StrToIntDef(InputBox('','Сколько элементов?',''),0);
 for i:=Low(b) to n do begin
   b[i]:=StrToIntDef(InputBox('','Введи:',''),0);
   if (b[i] mod 2)=0 then inc(oddd);
 end;
 ShowMessage(format('Нечетных: %d',[oddd]));
end;

procedure TForm1.Dyn;
var i,n:integer;
begin oddd:=0;
 n:=StrToIntDef(InputBox('','Сколько элементов?',''),0);
 SetLength(a,n);
 for i:=Low(a) to High(a) do begin
   a[i]:=StrToIntDef(InputBox('','Введи:',''),0);
   if (a[i] mod 2)=0 then inc(oddd);
 end;
 ShowMessage(format('Нечетных: %d',[oddd]));
end;

end.