Question

Дан одномерный массив a целого типа, состоящий из n элементов. найти в массиве третий, считая слева направо, элемент, имеющий заданное целое значение x, т.е. определить индекс этого элемента. исходный масс в и результат вывести на печать. предусмотрев вывод сообщения, когда подобного элемента в массиве нет.

Answer 1

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.