zadah18.PAS

{* Задача 18 *}

Unit ZADAH18;
Interface
Implementation
Begin
 writeln('

Дан массив размера A ненулевых целых чисел размера 10. Вывести значение первого из тех его элементов, которые удовлетворяют условию: AK<A10. Если нет, то вывести 0

'
);
End.

Program zadah18;

Uses zadah18.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Type {* Создание новых типов данных *}
  mas = Array[1..100] Of integer;
Var {* Необходимые переменные *}
  i  : integer;
  k  : integer;
  n  : integer;
  f1 : integer;
  f2 : integer;
  a  : integer;
  d  : integer;
  ar : mas;
  br : mas;
  cr : mas;
  Begin
  clrscr; {* Стираем всё с экрана *}
  write('Введите длину массива: ');
  readln(n);
  Begin
  randomize;
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  ar[i] := 100 - random(201);
For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  write(ar[i] : 3, '|');
writeln; {* Пропускаем одну строку *}
End;
For i := 1 To n - 1 Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
If ar[i] = ar[n] Then
  writeln('0');
End...