Вопрос по информатике:
Ввести число С. Определить, есть ли в массиве элемент, равный С. Найти
• номер первого такого элемента
• номер последнего такого элемента
Вот моя программа. Я не могу понять ошибку. Она не показывает номер первого такого элемента. Обнуляет его почему-то.
var a: array[1..10] of integer;
i, b, e, f, d, C: integer;
begin
d:= 1;
f:= 1;
write ('Введите число C: ');
readln (C);
writeln;
for i:= 1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:= 1 to 10 do
if a[i] = C then e:= e+1;
writeln;
if e > 0 then writeln ('В массиве нашлось число, равное С');
writeln;
for i:= 1 to 10 do
begin
if (a[i] = C) then b:= i;
if f > b then f:= b;
end;
writeln ('Первое такое число a[',f,']');
for i:= 1 to 10 do
begin
if (a[i] = C) then b:= i;
if d < b then d:= b;
end;
writeln ('Последнее такое число a[',d,']');
end.
- 04.04.2018 17:52
- Информатика
- remove_red_eye 807
- thumb_up 19
Ответы и объяснения 1
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if a[i] = C then
begin
Count := Count + 1;
tmpLast := i;
end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
writeln('В массиве нашлось число, равное С');
if (Count = 1) then
writeln('Первое и единственное число в позиции a[', tmpLast, ']')
else
begin
i := 0;
repeat
i := i + 1;
tmpFirst := i;
until (a[i] = C);
writeln('Первое такое число a[', tmpFirst, ']');
writeln('Последнее такое число a[', tmpLast, ']');
end;
end;
readln;
end.
- 05.04.2018 02:10
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.