Вопрос по информатике:
Пожалуйста, помогите, никак не могу решить!
Дан одномерный целочисленный массив S[10]. Значения вводятся с клавиатуры в интервале от -10 до 20. Проверьте есть в массиве элемент, значение которого равно заданному числу N. Значение N вводится с клавиатура. Массив и результат вывести на экран.
- 13.05.2016 02:59
- Информатика
- remove_red_eye 10687
- thumb_up 35
Ответы и объяснения 2
i: byte;
n: integer;
flag: boolean = false;
begin
write('N = ');
readln(N);
for i := 1 to 10 do
repeat
write('S[',i,'] = ');
readln(S[i]);
until ((S[i] >= -10) and (S[i] <= 20));
write('Исходный массив: ');
for i := 1 to 10 do
begin
write(S[i], ' ');
if (S[i] = N) then
flag := true;
end;
if flag = true then
writeln(#13 + 'Совпадение найдено.')
else
writeln(#13 + 'Совпадение не найдено.');
end.
- 14.05.2016 04:19
- thumb_up 11
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadArrInteger(10);
var n:=ReadInteger('n=');
if s.FindIndex(t->t=n)-1 then Writeln('Есть такой элемент')
else Writeln('Такого элемента нет')
end.
Пример
-3 0 12 4 7 -5 -1 -8 6 13
n= 7
Есть такой элемент
- 15.05.2016 12:59
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.