Решение , от решения этой , зависит моя оценка. буду создать целочисленный массив из 15 чисел. заполнить с генератора случайных чисел с элементами от -15 до 30. и вывести его на экран. определить самый большой элемент массива и его индекс. a (i): =random (x) -15 от -1 до х от -15 до 30.

Uses crt; var a, b, c, i, n, j : integer;     s : array[1..10000] of integer; begin         clrscr;         writeln('введите размер массива');         read(n);         for i: =1 to n do              begin              s[i]: =random(46)-15;               writeln ('s[', i,']=', s[i]);               end;         a: =s[1]; for i: =1 to n do              if s[i]> a then                  begin                  a: =s[i];                 b: =i;                   end;         writeln ('наибольший элемент s[', b, ']=',a); end. p.s. надеюсь на и лучший ответ.

в массиве n элементов.случайным образом вводятся целые числа от 0 до 999.x - ведённое с клавиатуры число.i - цикловая переменная.vara : array [1..100] of integer; x, i, n : integer; beginreadln (n); for i : = 1 to n doa [ i ] : = random (1000); readln (x); for i : = 1 to n doif a [ i ] : = x thenwriteln ('введённое с клавиатуры число находится в массиве'); end.если количество элементов в массиве известно изначально, например 25,   тогда строку " readln (n); " убираете, а строки" for i : = 1 to n do "заменяете на" for i : = 1 to 25 do "минус данной программы: если введённое с клавиатуры число не находится в массиве, то программа ничего не выводит.

var

  a: array [1..100] of integer;

  i,n,k: integer;

  f: boolean;

begin

  write ('razmer massiva (n< 100): '); readln(n);

  for i: =1 to n do begin

    a[i]: =random(36)-10;

    write (a[i],' ');

  end;

  writeln;  

  write ('number: '); readln(k);

  f: =false;

  for i: =1 to n do

    if a[i]=k then f: =true;  

  writeln (f);

  readln;

end.

выводит false, если в масиве нет числа,иначе выводит true.