Ввести число с. определить, есть ли в массиве элемент, равный с. найти • номер первого такого элемента • номер последнего такого элемента вот моя программа. я не могу понять ошибку. она не показывает номер первого такого элемента. обнуляет его почему-то. 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.

Const   n = 7; type   vector = array[1..n] of integer; procedure sortbycount(a: vector; kol: integer; var b: vector); {сортировка подсчетом} var   i, j: integer;   c: array[1..50] of integer; begin   for i : = 1 to 50 do c[i] : = 0;   for j : = 1 to kol do       c[a[j]] : = c[a[j]] + 1;   for i : = 2 to 50 do       c[i] : = c[i] + c[i - 1];   for j : = kol downto 1 do   begin       b[c[a[j]]] : = a[j];       c[a[j]] : = c[a[j]] - 1   end end; var   a: vector : = (25, 1, 13, 42, 8, 6, 14);   b: vector;   i: integer; begin   writeln('исходный массив');   for i : = 1 to n do write(a[i]: 4);   writeln;   sortbycount(a, n, b);   writeln('отсортированный массив');   for i : = 1 to n do write(b[i]: 4); end. тестовое решение: исходный массив   25    1  13  42    8    6  14 отсортированный массив     1    6    8  13  14  25  42