Даны натуральные числа n, A1, ..., An. Определить количество членов Ak последовательности A1, ..., An:

[ArtemStark1]

Даны натуральные числа n, A1, ..., An. Определить количество членов Ak
последовательности A1, ..., An:
а) являющихся нечётными числами;
б) кратных 3 и некратных 5;
в) являющихся квадратами чётных чисел;
Помогите, кто чем сможет
НУЖНО В DELPHI 7

[Serge_Bliznykov]

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

Помогите, кто чем сможет

а что у Вас не получается? что уже сделали?
Как вводите последовательность чисел?
Приложение нужно консольное или в виде формы?

[digitalis]

Эх, давненько я не брал в руки шашек (в плане помочи двоечникам) !

unit Unit1;

interface

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

type
    TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1  ;
  Arr: array[1..1000] of integer ;
  N,nn,nn3_5,nn_quad : integer ;
implementation

{$R *.dfm}


procedure TForm1.FormActivate(Sender: TObject);
begin
   Memo1.Clear ; Edit1.Clear ; N := 1 ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Arr[N] := StrToInt(Edit1.Text) ;
  Memo1.Lines.Add(IntToStr( Arr[N])) ;
  Inc (N) ;
end;

procedure TForm1.Button2Cliczk(Sender: TObject);
var i,j,k : integer ; x,y : extended ;
begin
  Memo1.Lines.Add(Format('Введено чисел %3d',[N-1])) ;
  nn := 0 ;
  nn3_5 := 0 ;
  nn_quad := 0 ;
  for i := 0 to N-1 do
     begin
       j := Arr[i] ;
       if (j and 1) > 0 then Inc(nn) ;
       if (j mod 3 = 0) and (j mod 5 > 0)  then Inc(nn3_5) ;
       k := Round(Sqrt(j)) ;
       if (k*k = j) and ((k and 1)=0) then Inc(nn_quad) ;
     end ;
  Memo1.Lines.Add(Format('Нечетных %3d',[nn])) ;
  Memo1.Lines.Add(Format('Кратных 3 некратных 5 %3d',[nn3_5])) ;
  Memo1.Lines.Add(Format('Квадратов четных  %3d',[nn_quad])) ;
end;

end.