• В линейном массиве посчитать количество элементов, значение которых совпадает с их
    индексом.

Ответы 2

  • var a:array[1..100]of integer;i,n,k:integer;beginreadln(n);for i:=1 to n doreadln(a[i]);k:=0;for i:=1 to n do beginif a[i]=i then k:=k+1;end;writeln(k);end.

    • Автор:

      gracie27
    • 5 лет назад
    • 0
  • Program P1;

    const n=10; (n - кол-во элементов массивa. можно изменить прямо в этой строке)

    type mas=array[1..n] of integer;

    var   A:mas;

            k,i:integer;

    Begin 

    k:=0; (k - кол-во элементов массива, значение которых совпадает с их индексом)

     for i:= 1 to n do

      Readln(A[i]);

      for i:=1 to n do

         if A[i]=i then k:=k+1;

    Writeln(k); 

    end.

     

    P.S.

    Задача решена для Pascal !!!!!

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years