Var i,n,a,r:longint;f:boolean; Begin readln(n); for i:=1 to n do begin read(a); if (a < 0) and (abs(a) mod 5=2) and (f=false) then begin r:=i; f:=true; end; end; if (f) then writeln(r) else writeln(-1); // Нет такого элемента End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку