ЗАДАЧА НА ПАСКАЛІ :х[1], х[2], ..., х[n] визначити наявність в ній підряд розміщених один за одним символів “abcd” (вказати кількість вкладень k=0,1,...), і якщо k>0, то виконати заміну символів “abcd” на “ijklmn”.

Прежде всего должна быть установлена операционная система, которая позволяет обращаться в службу поддержки. Нажмите кнопку "Пуск". Далее найдите вкладку "Панель управления", и кликните по ней. Откройте окно “Служба справки и поддержки”.

В левой части окна "службы справки и поддержки" находится список “Раздел справки” (Pick a Help topic). Вы можете найти интересующую категорию. Далее нужно нажать на ней. После этого появится список самых распространенных проблем операционной системы.

Кликните мышью на любом из пунктов этого списка. Вы сможете получить консультацию по интересующим вас темам.

Чтобы найти ответ на какой-либо интересующий вопрос, наберите соответствующее ключевое слово в графу «Найти» (Search). Можно также ввести целое предложение.

Далее кликните мышью на расположенной вблизи кнопке, с направленной вправо стрелкой.

Благодаря службе справки и поддержки можно производить различные действия, а именно:

- найти информацию о программах операционной системы, программах поддержки;

- произвести пуск одного из нескольких мастеров, предназначенных для разрешения возникающих вопросов;

- найти сведения по определенном извещении о неполадке;

- проверить присутствие конфликтов между утилитами и аппаратным обеспечением;

- запустить и произвести настройку службу Windows Update;

- прочесть интерактивную документацию.

Если во время работы с операционной системой у вас возникнут проблемы, "справочная система службы справки и поддержки" станет вашим надежным Вызывать службу поддержки также можно клавишей "F1". Также стоит отметить, что Служба поддержки доступна практически в каждом окне. Для этого нажмите на вкладку "Справка", которая находится вверху окна. Далее нажмите "Центр справки и поддержки".

Объяснение:Вроде так

Uses Crt;
  const n=5; m=7;
  type Mas = array [1..n, 1..m] of integer;
  var i, j, j1, j2: integer;
      Sumj1, Sumj2: real;
      A: Mas;
begin
 ClrScr;
 Randomize;
 SumJ1:=0; SumJ2:=0;
 for i:=1 to n do
    for j:=1 to m do
    A[i,j]:=random (10);
 WriteLn (' Massiv A: ');
 for i:=1 to n do
   begin
      for j:=1 to m do
      Write (A[i,j]:4);
      WriteLn;
   end; WriteLn;
 repeat
   Write (' Stolbez #1 = ');    ReadLn(j1);
 until (j1>=1) and (j1<=m);
 repeat
   Write (' Stolbez #2 = '); ReadLn(j2);
 until (j2>=1) and (j2<=m) and (j1<>j2);
 for i:= 1 to n do
    SumJ1 := SumJ1+A[i,j1];
 for i:= 1 to n do
   SumJ2:=SumJ2+A[i,j2];
 SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; 
WriteLn;
WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2);
WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); 
ReadLn;
end.