1. Информатика
  2. Дан целочисленный массив

Дан целочисленный массив размерностью 20 элементов, заполненный случайными числами в диапазоне от 0 до 100. Определить сколько элементов этого массива равны заданному целому числу а, которое берется в этом же диапазоне.

irinkacs irinkacs    2   27.04.2020 12:49    1

Ответы
natalinatali2003 natalinatali2003  13.10.2020 22:45

PascalABC.NET 3.6.2

begin

 var B := ArrRandom(20, 0, 100);

 var a := Random(100);

 B.println; a.println;

 B.Where(p -> p = a).Count.Println;

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
jessikafox jessikafox  12.06.2019 10:20
Инфомационный объём текста , составленно с алфавита мощьностью 64, равен 1,907 кб. каков информационный вес символа этого алфавита , и солько и сколько символов содержит...
embazuka embazuka  12.06.2019 10:20
Определите объем файла в килобайтах в кодировке ascii. файл состоит из 40 страниц, на каждой странице находится 50 строк по 30 символов в каждой строке....
катарина68 катарина68  12.06.2019 10:20
Как называется внутренняя память компьютера, в которую данные записываются производителем и не меняются при отключении питания компьютера...
kittikatlove kittikatlove  12.06.2019 10:20
1. учебник по информатике,набранный на компьютуре,содержит 256 страниц,на каждой странице 40 строк,в каждой строке 60 символов.для кодирования одного символа используйте...
Alilan1 Alilan1  19.09.2021 02:16
1. Закончите утверждение: «Чем больше первоначальная неопределённость знания, тем…» а) больше информации несёт сообщение, снимающее эту неопределённость б) больше равновероятных...
Galor Galor  03.08.2019 19:10
Назовите свойства объекта операционной системы windows рабочий стол...
littlefoxy littlefoxy  03.08.2019 19:10
№1 сколько битов информации несет сообщение о том, что из колоды в 32 карты достали пик ? №2 проводятся две лотереи: 4 из 32 и 5 из 64 . сообщение о результатах какой из...
Xidirova04 Xidirova04  03.08.2019 19:10
Различные примеры процесса обработки информации. определите, по каким правилам она производится в каждом примере....
Рикон1 Рикон1  15.12.2020 14:16
Головной мозг разобраться нужно ​...
Sowa2006 Sowa2006  15.12.2020 14:16
Program stroka; var S, S1: string: I : byte; Begin write ( Введите строку ): readin (S) ; S1 :‾ ; for i:=1 to length (s) do if S(I) in ( A .. Z ) then S1:=S1+chr (ord(s[I])+...

Популярные вопросы