Сослать программу на паскале.поиск чисел в массиве. program example; {программа заполняет массив rand случайными числами в диапазоне от 0 до 50, вводит число х, и вычисляет, сколько раз х входит в массив rand} var rand: array[1..20] of integer; i, x, numberx : integer, begin {установка датчика случайных чисел} randomize; {заполнение массива случайными числами и вывод их на экран} writeln(‘массив случайных чисел: ’) for i: =1 to 10 do begin rand[i]: =random(50); write(rand[i]: 4) end; writeln; {ввод х} write(‘введите х: ’)); readln(x); {подсчет числа вхождений х в массив} numberx: =0; for i: =1 to 10 do if rand(i)=x then numberx: =numberx+1; {анализ и вывод результата} if numberx=0 thenwriteln(‘в массиве нет числа’,x) else writeln(‘число’,x,’в массиве присутствует’,numberx,’раза’) end.
235
289
Ответы на вопрос:
Var rand: array[1..20] of integer; i, x, numberx : integer; begin writeln('массив случайных чисел'); for i: =1 to 10 do begin rand[i]: =random(50); write(rand[i]: 4); end; writeln; write('введите х: '); readln(x); numberx: =0; for i: =1 to 20 do if (rand[i]=x) then numberx: =numberx+1; if numberx=0 then writeln('в массиве нет числа ',x) else writeln('число',x,'в массиве присутствует ',numberx,' раза') end.
Sub aaa() set r = range("a1: f6") z = r s = 0 for i = 1 to 6 s = s + z(i, i) next i msgbox "сумма элементов на главной диагонали " + str(s) end sub во вложении - рабочая книга ms excel 2003
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
okorfeda31.05.2022 08:11
-
FeagTV21.04.2021 09:50
-
olaseve2007ls28.05.2023 13:37
-
vladskills0921.03.2021 09:55
-
Клава1111128.02.2020 07:02
-
znatokchok21.10.2021 09:03
-
Barsvtk01.09.2021 12:23
-
kadalsu401.08.2022 15:12
-
рыжик5921.02.2021 19:17
-
tatiana2017D13.03.2022 03:01
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.