program Cobra;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;
const
  // Границы массива
  c_Dim1_min = 0;
  c_Dim1_max = 5;

  c_Dim2_min = 0;
  c_Dim2_max = 3;
  // Диапазон значений для отбора:
  c_min = -10;
  c_max = 9;
  // Число итераций
  c_iter = 3;
type
  tCobraArray = array[c_Dim1_min..c_Dim1_max, c_Dim2_min..c_Dim2_max] of Integer;
var
  fMaxItems: Integer; // Максимальное число подходящих элементов

function TheCobraIsAttacking(const aSrcArr: tCobraArray; out aMultError: string): Integer;
var
  i: Integer;
  j: Integer;
  fIsExists: Boolean;
  fCnt: Integer;
  fSum: integer;
  fSuitArray: array of Integer;
begin
  Result := 0;
  aMultError := '';
  fCnt := 0;
  fSum := 0;
  fSuitArray := nil;
  fIsExists := False;
  for i := c_Dim1_min to c_Dim1_max do
    for j := c_Dim2_min to c_Dim2_max do
      if (aSrcArr[i, j] >= c_min) and (aSrcArr[i, j] <= c_max) then begin
        // Вычисление произведений
        if not fIsExists then begin
          Result := aSrcArr[i, j];
          fIsExists := True
        end else
        try
          Result := Result * aSrcArr[i, j];
        except
          on E: Exception do
            aMultError := E.Message;
        end;
        SetLength(fSuitArray, Length(fSuitArray) + 1); // Заполнение линейного массива
        fSuitArray[High(fSuitArray)] := aSrcArr[i, j];
        Inc(fCnt); // Подсчет количества подходящих элементов в массиве
        Inc(fSum, aSrcArr[i, j]) // Суммирование элементов
      end;

  Writeln('Items :'); // Показ подходящих элементов
  for i := 0 to High(fSuitArray) do
    Write(fSuitArray[i]: 4);

  Writeln;
  Writeln('Total items :', fCnt); // Показ количества
  fMaxItems := Max(fMaxItems, fCnt)  // Вычисление максимальное количеств элементов

end;

procedure CobraShow(const aSrcArr: tCobraArray);
var
  i: Integer;
  j: Integer;
begin
  Writeln('Src array :');
  for i := c_Dim1_min to c_Dim1_max do begin
    for j := c_Dim2_min to c_Dim2_max do
      Write(aSrcArr[i, j]: 4);
    Writeln;
  end;

end;

procedure CobraInit(var aSrcArr: tCobraArray);
var
  i: Integer;
  j: Integer;
begin
  Randomize;
  for i := c_Dim1_min to c_Dim1_max do
    for j := c_Dim2_min to c_Dim2_max do
      aSrcArr[i, j] := 18 - Random(36); // Заполнение случайными числами -18..+18
end;

procedure doIt;
var

  faSrcArr: tCobraArray;
  fMult: Integer;
  fMultErr: string;
  i: Integer;
begin
  Randomize;
  fMaxItems := 0;
  Writeln('Cobra');
  Writeln('Copyright (c) 2017 Zhyshy');
  for i := 1 to c_iter do begin
    Writeln('----------- Iteration # ', i);
    CobraInit(faSrcArr); // Заполнение случайными значениями
    CobraShow(faSrcArr); // Показ исходного массива
    fMult := TheCobraIsAttacking(faSrcArr, fMultErr);
    writeln;
    write('Mult = '); // Показ произведения подходящих элементов
    if fMultErr <> '' then
      writeln(fMultErr)
    else
      writeln(fMult);
  end;
  Writeln('===============');
  Writeln('Copbra: Max Items = ', fMaxItems);



end;
begin
  doIt();
  Readln;
end.