Найти номер первого отрицательного элемента,делящегося на 5 с остатком 2
Найти номер первого отрицательного элемента,делящегося на 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 ('Нету!!! ');
Не нашли ответ?
Похожие вопросы