Св pascalabc. дан массив f1, , f17. в массиве есть только два отрицательных элемента. заменить все элементы, стоящие до первого отрицательного и после второго, на нули. массив нужно взять из другого файла.

107

312

Посмотреть ответы 2

Ответы на вопрос:

absde91

Информатика

4,7(83 оценок)

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin var a: =readlines('m17.txt').joinintostring.tointegers; a.println; var b: =a.select((x,i)-> rec(x,(x-> x.item1< 0) .select(x-> x.item2).toarray; if b.count< > 2 then writeln('количество отрицательных элементов не равно двум') else begin a: =seqfill(b[0],0).concat(a.skip(b[0]).take(b[1]-b[0]+1)) .concat(seqfill(a.length-b[1]-1,; a.println end end. тестовое решение: 23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10 0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0 файл с исходными данными имеет имя m17.txt. тестовый файл находится во вложении. разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.