Напишите программу, которая сначала считывает элементы таблицы один за другим, затем выводит их в виде таблицы. Каждый ряд таблицы нужно отсортировать по возрастанию, кроме первого и последнего рядов (в них порядок элементов нужно оставить без изменений). Не используйте обращение к рядам по индексу (к элементам рядов — можно). Формат ввода

На первых двух строках вводятся натуральные числа — количество строк (рядов) в таблице и количество столбцов в таблице.

Далее вводятся сами элементы таблицы — слова, каждое на отдельной строчке; подряд идут элементы сначала первого ряда, затем второго, и так далее.

Формат вывода

Ряды таблицы; каждый ряд — элементы таблицы на одной и той же строке, после каждого элемента выводится символ табуляции.
Пример
Ввод
4
3
удивительная
тройка
треф
счастливая
семёрка
червей
желательный
туз
пик
зловещая
дама
пик

Вывод
удивительная тройка треф
семёрка счастливая червей
желательный пик туз
зловещая дама пик

по формуле n= найдем, сколько было круглых фигурок -  = 4; всего фигурок было 15+4=19. ответ: 19

700 иероглифов было в древнем письме

посадка дерева: 1.купить семя.

2.найти место для посадки.3.вскопать яму.4.посадить семя.5.закопать яму.переход улицы по светофору: 1.подойти к дороге (к светофору)2.посмотреть на цвет, который сейчас горит.3.дождаться нужного цвета.4.перейти дорогу.5.отправиться дальше.

1)

var a: array[1..20] of integer; i, j, k: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('удалили элементы из одинаковых цифр включая однозначные'); i : = 1; k : = 10; while i < = k do begin if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then begin if i = k then k : = k - 1 else begin for j : = i to k - 1 do a[j] : = a[j + 1]; k : = k - 1; end; end else i : = i + 1; end; for i : = 1 to k do write(a[i]: 4); end.

2)

var a: array[1..20] of integer; i, j, k,n: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('введите k(не должно содержать 1)='); readln(k); writeln('вставляем k перед всеми элементами где есть цифра 1'); i : = 1; n : = 10; while i < = n do begin if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then begin for j: =n+1 downto i+1 do a[j]: =a[j-1]; a[i]: =k; n: =n+1; i: =i+1; end; i : = i + 1; end; for i : = 1 to n do write(a[i]: 4); end.

3)

var a: array[1..10] of integer; i, j, k: integer;

begin for i : = 1 to 10 do begin a[i] : = random(71) - 40; write(a[i]: 4); end; writeln; writeln('меняем местами три первых и три последних элемента'); for i: =1 to 3 do begin k: =a[i]; a[i]: =a[i+7]; a[i+7]: =k; end; for i : = 1 to 10 do write(a[i]: 4); end.