Составить алгоритм как на второй схеме.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
type
  Matrix=array[,] of integer;

procedure MatPrint(a:Matrix);
begin
  var m:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to m do Write(a[i,j]:4);
    Writeln
    end
end;

function IsEqual(a:Matrix; col:integer):boolean;
begin
  var s:=sign(a[0,col]);
  for var i:=1 to Length(a,0)-1 do s+=sign(a[i,col]);
  if (s=0) then Result:=(a[0,col]<>0)
  else Result:=false
end;

procedure DeleteCol(var a:Matrix; col:integer);
begin
  var n:=Length(a,0)-1;
  var m:=Length(a,1)-1;
  for var j:=col+1 to Length(a,1)-1 do
    for var i:=0 to n do a[i,j-1]:=a[i,j];
  SetLength(a,n+1,m)
end;

begin
  var n:=ReadInteger('Строк:');
  var m:=ReadInteger('Столбцов:');
  var a:=MatrixRandom(n,m,-99,99);
  Writeln('Исходная матрица');
  MatPrint(a);
  for var j:=Length(a,1)-1 downto 0 do
    if IsEqual(a,j) then DeleteCol(a,j);
  Writeln('Результирующая матрица');
  MatPrint(a);  
end.

Тестовое решение
Строк: 8
Столбцов: 10
Исходная матрица
  -3 -82 -25 -22  65   1  79 -67 -64 -82
  17  36  48 -32  51  11  43   9 -35   4
 -10  -5  80  82 -24  66 -12 -58  50 -94
  52  70  53  85 -32 -59  46  57 -84 -44
  81  71 -55  37  46 -15 -61  25  22  -7
 -49  98 -42 -18 -44 -97 -63  -7 -98  99
 -86  37 -17 -69 -35  46  82  62  99  11
  65  85  -7 -90  23  19 -50 -56 -64  91
Результирующая матрица
 -82 -25 -22   1 -64
  36  48 -32  11 -35
  -5  80  82  66  50
  70  53  85 -59 -84
  71 -55  37 -15  22
  98 -42 -18 -97 -98
  37 -17 -69  46  99
  85  -7 -90  19 -64

B

Объяснение:

Ақпаратты іздеу - қайсыбір құжаттар жиынынан берілген тақырыпқа арналғандарын, алдын ала анықталған іздеу (сұраныс) шарттарын қанағаттандыратын немесе қажетті (ақпараттық қажеттілікке сай) мәліметтерден тұратын құжаттарды табу үдерісі.

Іздеуді жүзеге асыру үшін қажетті ақпаратты жинауға, өңдеуге және ұсынуға бағытталған амалдар тізбегін орындау керек.

Іздеудің түрлері

1. Толық мәтінді іздеу – құжаттың бүкіл мазмұны бойынша іздеу. Толық мәтінді іздеуді жүзеге асыратын программа – кез келген іздеу жүйесіне жатады.

Сендер әдетте қандай іздеу жүйесін қолданасыңдар?

Іздеу жүйесі – бұл өздеріңе кездесетін web-парақтармен байланысты түйін сөздердің үлкен қоры. Іздеу жүйесіне сұраныс жіберу керек. Ол үшін, іздеу жүйесінің іздеу жолында түйін сөз немесе бірнеше сөз, сөз тіркесі теріледі. Іздеу нәтижесінде терілген сөздер мен сөз тіркестері кездесетін барлық web-парақтардың адрестік сілтемелері беріледі. Тұтынушы іріктеу нәтижесінде неғұрлым дәл сұраныс жасаса, ол соғұрлым толық және дәл ақпарат алады.

Іздеу үдерісі барысында әрқашан өздеріңді қызықтыратын ақпаратты алып жүрсіңдер ме?

Іздеу үдерісі барысында қолданушыға іздеген, қажет ететін ақпараттан артық ақпарат ұсынылуы мүмкін. Сондай-ақ, табылған ақпараттың қайсыбір бөлігінің жасалған сұранысқа ешқандай қатысы болмауы да ықтимал. Мұның бәрі дәл тұжырымдалған сұранысқа ғана емес, сонымен қатар, әртүрлі болып келетін іздеу жүйелерінің мүмкіндіктеріне де тәуелді болады. Тағы бір еске алатын нәрсе, мәліметтердің көптігінен, басты, өзімізге қажеттісін ескермей қалуымыз да мүмкін.

Іздеу жүйелерінің көптілді қолдау мүмкіндігі, яғни, сұраныстарды түрлі тілде өңдеу қабілеттілігі, көбінесе мәтіннің фрагменттерін тез аудару үшін қолданылады. Қолданушыларға екі тілді сөздіктер, электронды аудармашы және т.б. ұсынылады.

Қалай ойлайсыңдар, іздеу жүйелерінің құрылымы қандай?

Алайда, іздеу жүйелері үш бөліктен: робот, индекс және сұранысты өңдеу программасынан тұрады.

Робот – бұл web-парақтарды аралап, олардың мазмұнын (толығымен немесе бөліктерге бөліп) оқитын программа.

Роботтар web-парақ мәліметтерін толығымен немесе ішінара оқиды. Web-парақтардың мазмұнын талдауда әртүрлі іздеу жүйесіндегі роботтардың өзіндік принципі бар.

Индекс – бұл үлкен мәліметтермұрағатынан да үлкен. Бұл мұрағатта роботтар қатынасқан барлық web-парақтар туралы ақпараттар және сол парақтардың көшірмелері сақталады. Әрине іздеу жүйесіндегі индекстер көлемі үлкен болуы қажет. Неғұрлым индекс көлемі үлкен болған сайын, соғұрлым қолданушы іздеу барысында толық ақпаратқа қол жеткізе алады. Көшбасшы іздеу жүйелерінің мәліметтер қорлары ондаған миллион құжат туралы мәліметтер сақтай алады, ал олардың индекстерінің көлемі жүздеген гигабайтты құрайды. Индекстер тұрақты жаңартылып және толықтырылып отыратындықтан, іздеу жүйесінің бірдей сұраныс бойынша әр уақытта жүргізген іздеу жұмыстары әртүрлі нәтиже беруі мүмкін.

Сұраныстарды өңдеу программасы – бұл қолданушының сұранысына сәйкес индекстерді қажетті ақпараттың бар – жоғын «қарап шығып», табылған құжаттарға сілтемелер қайтаратын программа.