Сгенерировать массив из N случайных целых чисел и вывести его. Ввести
Сгенерировать массив из N случайных целых чисел и вывести его. Ввести целое
число. Найти, есть ли в массиве элемент, равный этому числу, или вывести
известие, что нет такого значения в массиве
Вероника
Паскаль?
Иван
да
1 ответ
Мирослава Манжасова
Const
K = 30;
Var
A:array[1..K] of integer;
i,C,n:integer;
Begin
Write('Введите целое число: ');ReadLn(C);
n:=0;
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
if A[i]=C then n:=n+1;
End;
WriteLn;
if ngt;0 then WriteLn('В массиве есть элемент, одинаковый ',C)
else WriteLn('В массиве нет элементов, одинаковых ',C)
End.
K = 30;
Var
A:array[1..K] of integer;
i,C,n:integer;
Begin
Write('Введите целое число: ');ReadLn(C);
n:=0;
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
if A[i]=C then n:=n+1;
End;
WriteLn;
if ngt;0 then WriteLn('В массиве есть элемент, одинаковый ',C)
else WriteLn('В массиве нет элементов, одинаковых ',C)
End.
Lesha Umenushkin
Благодарю)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов