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

1 Январь 0001



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

  • В массиве n элементов.
    Случайным образом вводятся целые числа от 0 до 999.
    x – ведённое с клавиатуры число.
    i – цикловая переменная.

    var
    a : array [1..100] of integer;
    x, i, n : integer;
    begin
    readln (n);
    for i := 1 to n do
    a [ i ] := random (1000);
    readln (x);
    for i := 1 to n do
    if a [ i ] := x then
    writeln (‘введённое с клавиатуры число находится в массиве’);
    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.









Информатика

Комментарии закрыты.