Вот, держи :)
................................
2, 6, 11
................................................................................
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
Я включил компьютер и набрал на клавиатуре сочинение про свою семью. Затем я переписал с фотоаппарата последние фотографии, добавил их к тексту и вывел сочинение на монитор. После этого я прибавил громкость звука колонок и стал играть в любимую игру, быстро двигая мышью. Получив рекордный результат, я ввёл с клавиатуры своё имя и распечатал на принтере список рекордсменов.
Ответ:
const N = 30;
var a : array[1..N] of integer;
i, j, x : integer;
Begin
for i := 1 to N do readln(a[i]);
readln(x);
for i := 1 to N do begin //перебираем элементы массива
if a[i] = x then begin //если находим элемент равный Х то
writeln('наименьший номер элемента равного X - ', i); //выводим сообщение
exit; //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер
end;
end;
writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение
end.
Объяснение:
объяснения в комментариях программы
проверено на PascalABC