var a:array[1..15]of integer; i,j:integer; begin for i:=1 to 15 do readln(a[i]); for i:=1 to 15 do begin j:=i; if (a[i]<0) and (a[i] mod 5=-2) then break; end; writeln(j); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
