Массив А[1..5] заполнен числами3,8,5,7,6.Выполните действия с элементами массива:
а) For i : 1 to 5 do A[i] := -A[i];
б)For i := 1 to 5 do
If A[i] mod 3 = 0 Then A[i] := A[i] div 3

Что захочешь Об отмене крепостного права говорили с начала 19-го века и только в середине Александр II смог осуществить реформу. Миллионы российских крестьян получили свободу. Но как же проходила подготовка реформы? На каких условиях освобождались крестьяне? Так ли легко им стало жить в первые годы после отмены крепостничества?Было несколько причин отмены крепостного права: оно мешало экономическому развитию страны, грозило нарушением общественного спокойствия, образованная часть общества относилась к крепостничеству как к рабству, грозило для страны скатыванием в разряд второстепенных держав, увеличивалась военно-техническая отсталость России от европейских стран. Реформу готовили несколько лет, и в 1861 году Александр II издал Манифест. Крестьяне стали свободными, но должны были выкупать землю. Экономическое положение крестьян начинает ухудшаться из-за тяжёлых условий выкупа, в связи с этим начинаются бунты. Однако, реформа была нацелена на перспективу и ее результаты должны были сказаться через несколько лет. В стране начнут развиваться капиталистические отношения (наемный труд, увеличится количество фабрик и заводов), повысится урожайность зерновых культур. Но при этом в первое десятилетие проведения реформы ухудшилось экономическое положение крестьян.Какие факты свидетельствуют о наличии крепостной зависимости у крестьян Прибалтики2. Какие двигательные качества спортсмена необходимы для овладении техники прыжка в высоту с разбега любыми Приведите ро одному примеру из 6 качеств.

1 Какие бывают в прыжках в высоту с разбега?

1 Какие бывают в прыжках в высоту с разбега?

ЭТО ТО ЧТО АЩЧОШЕШЬ

Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.