Ввести число С. Определить, есть ли в массиве элемент, равный С. Найти • номер первого такого элемента
• номер последнего такого элемента
Вот моя программа. Я не могу понять ошибку. Она не показывает номер первого такого элемента. Обнуляет его почему-то.
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.
• номер последнего такого элемента
Вот моя программа. Я не могу понять ошибку. Она не показывает номер первого такого элемента. Обнуляет его почему-то.
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.
More Questions From This User See All