Паскаль авс.net программы . массивы подсчитайте количество элементов одномерного массива, абсолютная величина которых совпадает со своим номером.

158

214

Посмотреть ответы 2

Ответы на вопрос:

эдвард20

Информатика

4,4(89 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =readseqintegerwhile('вводите числа, окончание - 0: ',x-> x< > 0).toarray; writeln('искомое количество: ',a.where((x,i)-> abs(x)=i+1).count) end. пример вводите числа, окончание - 0: 3 2 7 11 -6 3 -7 16 0 искомое количество: 2