элемент, имеющий заданное целое значение x, т.е. определить индекс этого элемента. Исходный масс в и результат вывести на печать. Предусмотрев вывод сообщения, когда подобного элемента в массиве нет.
- program n_1;
- uses printer;
- var n, i, s: integer;
- arr: array [1..10000] of integer;
- begin
- write (‘Введите размер массива: ‘);
- readln (n);
- for i := 1 to n do begin
- write (‘arr[‘,i,’] := ‘);
- readln (arr[i]);
- end;
- write (‘Введите число для поиска: ‘);
- readln (s);
- i := 0;
- repeat
- inc(i);
- until (arr[i] = s) and (i = n);
- if (not (i = n)) or ((i = n) and (arr[i] = s)) then writeln(lst,s);
- end.