Помогите написать Программу ** Языке Программирования Паскаль, который: 1) Имеет 10...

Question

Помогите написать Программу на Языке Программирования Паскаль, который:
1) Имеет 10 случайных элементов от 0 до 99 и выводит на экран
2) Ищет Индекс, равный 25, если такового нет, то сообщает об этом.

Премного благодарен.

Comments

Хотя, что делать, понятно. Не выводить сообщение, что числа 25 нет.

---

А еще - какая именно версия Паскаля?

---

Версия 2.6.4 - последняя.

---

Число 25 искать по всему новоиспеченному массиву, если нет, то вывести на экран.

---

2.6.4 - это что, Free Pascal?

---

Z dthcb. Gfcrfkz cghfibdfk? f yt dthcb. rjvgbkznjhf

---

Ой. Я версию Паскаля спрашивал, а не компилятора

---

Free Pascal http://100-bal.ru/pars_docs/refs/29/28683/28683_html_74fed1cc.png

---

Значит, все же Фри. Увы, нет у меня его.

---

На онлайновом ресурсе с fpc проверил - работает

Answer 1

Var
  i:byte;
  a:array[1..10] of byte;
  Fortune:boolean;
begin
  Randomize;
  Write('Элементы массива: ');
  Fortune:=False;
  for i:=1 to 10 do begin
    a[i]:=Random(100);
    Fortune:=Fortune or (a[i]=25);
    Write(a[i],' ')
  end;
  Writeln;
  if not Fortune then Writeln('Нет элемента со значением 25')
end.

Тестовые запуски:
Элементы массива: 86 57 51 82 5 25 20 77 67 86

Элементы массива: 80 0 7 50 1 12 61 17 96 95
Нет элемента со значением 25