Question

Найти номер первого отрицательного элемента,делящегося на 5 с остатком 2

Answer 1

N := 1; while (N < Size) and (A[N] mod 5 <> 2) and (A[N] >= 0) do Inc(N);
if (A[N] mod 5 = 2) and (A[N] < 0) then WriteLn(N) else ('Нету!!! ');