[Pascal ABC.NET] Функция

[0525]

Я что-то запутался в этих функциях. Мне нужно, чтобы функция считала количество элементов кратных 3, как это сделать?

Var A:Array[1..100] of integer;
 i,k,n:byte;
Begin
 write('Введите размерность массива: ');
  readln(n);
   k:=0;
    For i:=1 to n do
   Begin
  A[i]:=random(30);
 write(A[i],' ');
if (A[i] mod 3 = 0) 
 then inc(k);
  End;
   if k>0 then writeln('Количество элементов кратных 3 : ',k)
  else writeln('Таких элементов нету!');
End.

[Sciv]

Type 
  TArray: Array[1..100] of byte;

{Функция счёта.
Входные параметры:
@AArray - массив элементов
@ADim - размер массива
Выход: количество элементов, кратных трём}

function GetCount(AArray: TArray; ADim: byte): integer;
var
  bIndex: byte;
  bRes: byte;
begin
  bRes := 0;
  For bIndex := 1 to ADim do
    if AArray[bIndex] mod 3 = 0 then
      inc(bRes);
  GetCount := bRes;
end;

{Основная программа}
Var 
  A: TArray;
  i, k, n: byte;
Begin

 {Добавим защиту от ввода некорректного n}
 Repeat
   write('Введите размерность массива (n<=100): ');
   readln(n);
 Until n <= 100;

 {Формируем массив}
 Randomize; {Инициализация генератора случайных чисел - нужна перед вызовом рандома, иначе получится фигня, а не нормальное распределение}
 For i:=1 to n do
 Begin
    A[i]:=random(30);
   write(A[i],' ');
 End;
 {Здесь вызываем функцию, передавая ей на вход массив А и значение переменной n}
 k := GetCount(A, n);
 if k > 0 then writeln('Количество элементов кратных 3 : ', k)
 else writeln('Таких элементов нету!');
End.

Можно избавиться от k, если записать сразу так:

 if GetCount(A, n) > 0 then writeln('Количество элементов кратных 3 : ', GetCount(A, n))
 else writeln('Таких элементов нету!');

[Serge_Bliznykov]

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

Можно избавиться от k, если записать сразу так:

не надо в данном случае избавляться от k: два вызова функции явно менее эффективно и хуже, чем один вызов + несколько байт под переменную.

[Sciv]

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

не надо в данном случае избавляться от k

Согласен, не надо.

[0525]

Спасибо большое!