№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.