// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin var a: =readlnstring.towords; // читаем строку, образуем массив слов var s: =(a[: 2]+a[3: ]).joinintostring; // получаем новую строку writeln(s) // end. пояснения. a - массив с индексами от 0 до n-1, где n - число слов. срез a[: 2] возвращает последовательность элементов массива 0 и 1. срез a[3: ] возвращает последовательность элементов массива, начиная с третьего и до конца массива. объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при joinintostring. пример а роза упала на лапу азора а роза на лапу азора
Sergei_Olga658
10.10.2020
// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin writeln('*** исходный массив ***'); var f: =matrrandom(2,3,-99,99); f.println(8); writeln(8*f.colcount*'-'); var s: =f.row(1).sum; writeln('сумма по 2й строке равна ',s); writeln('*** полученный массив ***'); f.setcol(2,f.col(2).select(t-> t*s).toarray); f.println(8) end. пример *** исходный массив *** -74 -10 38 -89 91 -18 сумма по 2й строке равна -16 *** полученный массив *** -74 -10 -608 -89 91 288