[ArtemStark]

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

[lmikle]

Вот же студенты ленивые пошли...

Код:

const
  N = 100;
  MsgFmt = 'а) %d, б) %d, в) %d';
var
  A : Array Of Integer;
  I : Integer;
  Cnt1, Cnt2m Cnt3 : Integer;
  Msg : String;

begin
  // Init the array
  SetLength(A,N);
  For I := Low(A) To High(A) Do A[i] := Random(1000);

  // Do the task
  Cnt1 := 0;
  Cnt2 := 0;
  Cnt3 := 0;
  For I := Low(A) To High(A) Do
    Begin
      If A[i] mod 2) <> 0 Then Inc(Cnt1);
      If ((A[i] mod 3) = 0) And ((a[i] mod 5) <> 0) Then Inc(Cnt2);
      If (sqr(Round(sqrt(A[i]))) = A[i]) And (sqrt(A[i]) mod 2 = 0) Then Inc(Cnt3);
    End;
  Msg := Format(MsgFmt,[Cnt1,Cnt2,Cnt3]);
  ShowMessage(Msg);  // Для оконного режима
  // WriteLn(Msg); // Для консоли
end;