Дан натуральный ряд от 1 до 100. изменить знак четных элементов ряда на противоположный в паскаль откликнитесь

const n = 10; var a: array[1..n] of integer; i: integer; begin write('до замены: '); for i : = 1 to n do begin a[i] : = random(100); write(a[i], ' '); end; writeln; write('после замены: '); for i : = 1 to n do begin if(a[i] mod 2 = 0)then a[i] : = a[i] * (-1); write(a[i], ' '); end; end.

6 часов. 70 км/ч. 420 км

9 часов. 70 км/ч. 630 км

Объяснение:

Ну смотри. Что бы узнать среднюю скорость на всем пути, мы слаживаем 630+420=1050 км проехали семья

1050км/15часов=70км/ч - скорость автомобиля на всем пути.

Теперь, что бы узнать время, которое они ехали, берём сначала протяжность пути к курорту и делим на скорость, соответственно узнаём, сколько за растили время на приезд к курорту. 420/70=6 часов - была в пути семья к курорту.

То же самое, но уже семья возвращается домой. 630/70=9 часов - семья потратила на возвращение домой.

Надеюсь на отметку лучший ответик)

// pascalabc.net 3.2, сборка 1361 от 12.12.2016// внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив a[',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var b: =a.cols.select(x-> x.sum);   b.println; end. пример количество строк в массиве: 7 количество столбцов в массиве: 10 *** исходный массив a[7,10] ***   38  21  17  35  46 -38 -43  20 -38  47     5    5    1  20  22 -12 -30 -21 -41    3   -42    3  21 -25  18 -18  -7  21 -44  25   -1  50  21  -1  23  49    9 -17 -32  47   36 -44  46    7  48  -9 -35 -29 -48  35   19  -6 -38  12 -17 -16  50  -9 -34  13   20 -13  13 -12  -2    5  35 -48  47  23 75 16 81 36 138 -39 -21 -83 -190 193