[HelperMe]

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

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

Вроде так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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]

спасибо!!!