№2 КОНТРОЛЬНАЯ РАБОТА по дисциплине «Структуры и алгоритмы обработки данных»

Задание 2

1.  Составить алгоритм поиска неупорядоченных данных в массиве вещественных (символьных) строк по заданному ключу поиска.

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

Type mas=array[1..30] of Real;      {Декларация массива}

Var a:mas;

i:Integer;  {Параметр цикла For}

p:Real;  {Значение искомого элемента}

n:Integer;   {Индекс (номер) искомого элемента}

begin

// n:=0;

//Writeln ('vvedite dannie v massiv 10 chisel');

n:=0;

For i:=1 to 100 do     {Заполнение массива}

begin

a[i]:=Random (100);

//Readln (a[i]);

end;

Writeln ('vvedite iskomoe chislo');

readln (p);

For i:=1 to 100 do

//begin

If a[i]=p then

n:=n+1;

//n:=i;

If n<>0 then

Writeln ('naideno '+IntToStr (n)+' sovpodeniy')

else

Writeln ('v masive net tacogo elementa');

Readln;

end.