Написать программу которая проверяет находится ли в массиве введенное с клавиатуры число. массив должен вводиться случайным образом(pascal)

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.

в массиве 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 "минус данной программы: если введённое с клавиатуры число не находится в массиве, то программа ничего не выводит.

команда «предварительный просмотр» позволяет проверить, как будет выглядеть ваш документ в жизни на бумаге, исходя из формата выбранного листа, то есть перед тем, как распечатать документ, можно посмотреть качество возможной распечатки и при необходимости откорректировать документ до печати.

команда «предварительный просмотр» возможна в текстовом редакторе word, для этого на стандартной панели инструментов необходимо выбрать файл – предварительный просмотр или выбрать кнопку предварительный просмотр, которая изображается листом бумаги с лупой на нем.

версии текстового редактора word могут отличаться, в последней версии word 2016 программа «предварительный просмотр» выводится сразу при выборе команд файл – печать (на экране появляется изображение вашего документа).

в программе paint кнопка «предварительный просмотр» находится по пути файл-печать-предварительный просмотр.

таким образом, ваш ответ будет в – в группе печать вкладка главная.

Program example; const a=30; nmin: =-100; // минимальный параметр nmax: =100; //максимальный var flag_max : integer; flag_min : integer; i. jmin,jmax : integer; //счетчики randomize; array max[a]; //заполняем случайніми числами диапозон -100 +100 for i=1 do a do begin max=: = random (nmin + 1) - 2 * nmax; end; //ищим максимальный элемент for i=1 do a do begin if max> max[i+1] then begin flag_max: =max jmax: =i; end; else begin flag_max: =max[i+1]; jmax: =i; end; end; //минимальный элемент for i=1 do a do begin if max> max[i+1] then begin flag_min: =max[i+1] jmin: =i; end; else begin flag_min: =max; jmin: =i; end; end; //подсчитываем сумму for i=jmin do jmax-1 do begin max: =max[i+1] end; //сумма чисел в рандовом массиве между макс и мин єлементом write('сума',max);