Поделитесь своими знаниями, ответьте на вопрос:
Практическое задание 2 1. Откройте в Блокноте файл shablon.html. 2. Сохраните файл shablon.html в папку stranica под именем zadanie2.html. 3. В файл zadanie2.html скопируйте текст из файла zadanie2.txt. 4. Просмотрите результат в браузере. 5. Заключите каждый абзац в контейнер абзаца. 6. Первому заголовку («ГЛАВА 1. ОСНОВЫ СЕТИ ИНТЕРНЕТ») назначьте вид заголовка второго уровня, расположенного по центру. 7. Второму заголовку («Компьютерные сети») также назначьте вид заголовка второго уровня, но расположенного по левому краю. 8. Фразу «Виды компьютерных сетей» оформите шрифтом Impact, Lucida Console, Monotype Corsiva или любым другим. Размер шрифта задайте равным 4. 9. К любым предложениям в тексте примените различные типы шрифта. 10. В конце всего текста поэкспериментируйте с заданием размера шрифта, добавив строки: 11. Все названия компьютерных сетей в тексте выделите полужирным шрифтом увеличенного размера. 12. В конце текста примените теги шрифтового выделения: курсивное начертание шрифта, подчеркнутый текст, зачеркнутый текст, верхний индекс, нижний индекс.
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,'x',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var q:=a.Cols.Select(x->x.First<x.Last).ToArray;
var k:=q.Where(r->r).Count;
Writeln('*** Результирующая матрица [',m,'x',k,'] ***');
var b:=MatrFill(m,k,0);
var l:=0;
for var j:=0 to n-1 do
if q[j] then begin
for var i:=0 to m-1 do b[i,l]:=a[i,j];
l+=1
end;
b.Println(4)
end.
Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5x8] ***
15 -35 -11 -18 49 -32 31 -47
-21 -46 7 -48 3 24 -48 5
28 -46 36 -9 17 -32 -44 -10
-16 7 -14 40 13 30 50 -28
-8 35 -49 47 -31 30 18 20
*** Результирующая матрица [5x4] ***
-35 -18 -32 -47
-46 -48 24 5
-46 -9 -32 -10
7 40 30 -28
35 47 30 20