// 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,i)).Where(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,0)).ToArray; a.Println end end.
Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
1. Почтовый клиент (используя инкапсуляцию, почтовый клиент формирует пакеты для отправки на низких уровнях). 2. Почтовый клиент пересылает письмо на почтовый сервер отправителя. 3. Почтовый сервер отправителя ищет данные о DNS-зоне получателя. 4. Почтовый сервер отправителя ищет сведения о почтовом сервере получателя. 5. Почтовый сервер отправителя высылает на почтовый сервер получателя письмо. 6. Почтовый сервер получателя помещает письмо в ящик получателя. 7. Получатель при запуске почтового агента получает уведомление о доставке письма.
