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