Войти Регистрация Спроси ai-bota

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

Ответ:

NikolayNik12

05.10.2020 23:31

// 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

0,0(0 оценок)

Популярные вопросы: Информатика

АнастасияГабель

26.08.2022 05:07

(Передача масивів функціям с++) В задачі реалізувати: 1. Функцію, що реалізує умову задачі. 2.Всі масиви створюються динамічно а розмір вводиться користувачем з клавіатури. Дано...

черныйхащ

22.03.2020 11:55

4. Как можно создать и удалить новую переменную?5. Какова важность блоков в среде Scratch?6. В каком блоке расположены математические задачи?7. В каком блоке расположено использование...

leyla623

17.02.2022 09:30

Является ли условным оператором следующая последовательность символов? ifx 4theny:=x+4elsey:=x−4...

Alexal16

11.09.2020 05:10

Исполнитель Кузнечик прыгает вдоль числовой оси на заданное число делений. Вправо 3: кузнечик прыгает на 3 единицы вправо Влево 2: кузнечик прыгает на 2 единицы влево. В настоящий...

lululu4

05.11.2021 12:38

1.дано целое двузначное число. написать программу которая находит квадрат суммы его цифр. pascal...

2xui2

17.02.2020 18:09

Задача Вона розрахована на наступні 2 уроки: на першому уроці - у програмному середовищі графічного редактора, на другому уроці — у програмному середовищі табличного редактора,...

naxim23432

13.05.2020 22:37

На языке C++ 1.Пользователь вводит число (например, 1221042) И цифру (например, 2). Вывести количество цифр в числе, равной заданной (3), и количество цифр, больше нее (1). Если...

miramill

18.08.2020 02:48

Площадь поля прямоугольной формы 96га. найди длину этого поля,если ширина равна 800м....

виктория3345

18.08.2020 02:48

Он еки, отыз уш, токсан, жетпис, мын, сегиз жуз елу уш, жиырма алты, кырык бес, алты жуз отыз еки, жуз елу сегиз, жети, он жети, бес жуз токсан, алпыс создеримен соз тиркестерин...

sonka1001p0arxp

18.08.2020 02:48

Какими синонимами из 4-х букв можно заменить слова: шагать, печаль?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку