решите номер 4,50 баллов

Ответ

Автор - bezzubikkk

const m=100;
var
a: array[1..m] of integer;
i,n: integer;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]=i then writeln(i);

end.

Ответ

Автор - BobbyFresnel

===== PascalABC.NET =====

begin

var n := ReadInteger('n=');

var a := ArrRandom(n, 1, n);

a.Println;

a.Where((v, i) -> v = i + 1).Count.Println

end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

решите номер 4,50 баллов​

Ответ

Ответ

решите номер 4,50 баллов