[HelperMe]

Помогите плз
Дан массив целых чисел. Определить:
а) количество элементов, отличных от последнего элемента;
б) количество элементов, кратных А.

[Страдалецъ]

Вроде так:

Код:

Const
 ArrSize = 5;
 Arr: Array[1..ArrSize] of Integer = (1,2,3,4,5);
 A = 2;
Var
 i,Count1,Count2: Integer;
begin
Count1 := 0; 
Count2 := 0;
for i := 1 to ArrSize-1
do begin
    if Arr[i] <> Arr[ArrSize] then Inc(Count1);
    if Arr[i] mod A = 0 then Inc(Count2);
    end; 
Write('Отличных: ',Count1,'Кратных: ',Count2);
end.

[HelperMe]

спасибо!!!