Сослать программу на паскале.поиск чисел в массиве. 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.
160
492
Ответы на вопрос:
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.
Популярно: Информатика
-
MrKot00722.02.2021 03:44
-
Reixerrr18.05.2021 09:39
-
Dooolche13.04.2021 15:40
-
dimsa9707.09.2021 13:00
-
Markiza1107.09.2021 17:47
-
али42609.03.2021 14:40
-
myatlick16.01.2023 01:39
-
varksen21.03.2023 04:28
-
2018kat15.04.2022 12:05
-
proshamanfeed28.12.2021 06:38