Дан одномерный массив. Запиши верный ответ. −18 31 0 −4 3 14 Значение элемента массива — −18. Индекс элемента массива — ?

1. Меньше тигра, больше кошки,
Над ушами кисти-рожки,
С виду — кролик, но не верь -
страшен в гневе этот зверь!
И ему не крикнешь «брысь»!
Потому что это ... (рысь)

2. Он слетает белой стаей
И сверкает на лету,
Он звездой прохладной тает
На ладони и во рту... (снег)

3. Кто осенью спать ложится,
А весной встаёт... (медведь)

4. Жил я посреди двора,
Где играет детвора.
Но от солнечных лучей
Превратился я в ручей... (снеговик)

5. Что вверх корнем растёт? (сосулька)

6. Из капкана он уйдёт,
Из аркана убежит,
В тундре звёздной и морозной
Всюду путь ему открыт... (ветер)

7. За белой дверцей стужа, лёд.
Там Дед Мороз, друзья, живёт. (холодильник)

8. Пришла из лесу птичница в рыжей шубке кур посчитать. (лисичка)

9. Белой стайкой мошкара
Вьётся, кружится с утра.
Не пищат и не кусают,
Просто так себе летают. (снежинки)

10. Скачет по лесу то взад, то вперёд,
Воет, гудит, деревья трясёт. (вьюга)

1)uses crt; var  x,a,b,c,i: integer;     begin cls;   write('введите число: '); readln(x);     a: = x div 100;     b: = (x - a*100) div 10;     c: = (x - a*100 - b*10);     if (a=b) or (a=c) or (b=c) then    writeln('есть одинаковые цифры')    else    writeln('одинаковых цифр нет'); end.2)uses crt; var  x: real;     begin cls;   write('сумма покупки: '); readln(x);     if x> 1000 then x: =x-(x*0.1);     writeln('стоимость с учётом возможной скидки ',x); end.