Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 (Нету!!! );