Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.04.2018 00:13
- Информатика
- remove_red_eye 14708
- thumb_up 46
Ответы и объяснения 1
var
arr:array [1..arr_size] of Integer;
var x:Integer;
var find:boolean;
begin
randomize;
WriteLn('Введите X');
Read(x);
for var i:= 1 to arr_size do
arr[i]:= Random(6);
WriteLn('Массив:');
WriteLn(arr);
WriteLn('Что ищем:');
WriteLn(x);
for var i:= 1 to arr_size do
if arr[i] = x then
begin
if find true then
Write('Нашли: ');
find:= true;
Write('arr['+i+']='+x+' ');
end;
if find true then
WriteLn('Ничего не нашли.');
end.
- 21.04.2018 07:36
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.