Tid с
Вопросы и Анна
1. Приведе пример таблицы
2. Расскажите об элементах таблицы
3. Почему возникает необходимость добавлять таблицы в у
мент?
4. Как указывается место в документе, куда нужно вставить та
у?
5
Какие вставки таблицы в текстовом процессоре Word
Вы знаете? Покажите на компьютере.
Как можно копировать данные из таблицы?
7. Как можно удалить таблицу из документа?
8 Как можно менять свойства таблицы?
9 Какие данные можно поместить в ячейки таблицы?
10. Покажите на практике простые действия, выполняемые на паб
лицами
11. Как можно изменить ширину столбца таблицы?
12. Как можно изменить высоту строки таблицы?
13. Как заполняется таблица? Покажите
14. Покажите, как раскрасить границы таблицы.
15. Покажите, как изменить фон строки, столбца и ячейки в табinment
60
На пр
Как вста
таблицы,

строки и
ячеек та
Ключее
строки и​

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.