В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Alexa9711
Alexa9711
26.12.2020 13:54 •  Информатика

Составить программу по блок - схеме.

Показать ответ
Ответ:
tipichnayapanda
tipichnayapanda
16.05.2023 21:34
// 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.

Тестовое решение:
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 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
0,0(0 оценок)
Ответ:
artemsuraaye
artemsuraaye
09.07.2022 19:11

1. Ветераны Чернобыля,вступайте в ряды Долга!На нас лежит огромная ответственность - Нужно защитить мир от наступления Зоны!

2. Свободные сталкеры,ветераны,и охотники - вливайтесь в ряды долга!Защитить мир от заразы Зоны наша общая задача!

3. Сталкер, защити мир от Зоны - вступи в долг!

4. Мир со страхом смотрит на расползающийся заразу Зоны,вступи в Долг своих родных и близких!

5. Смертельным аномалиям,опасным мутантам,а так же анархистам и бандитам не остановить Долг.Мы победоносной поступью идем на гражданам всей планеты!

6. Сражаясь с мутантами вы покроете себя вечной славой! Кроме того кто вступил в Долг - обеспечивается оружием и отличным снаряжением.

7. Мы верим в нашу победу,верим в то что Зона будет уничтожена. Вступай в ряды Долга!

Объяснение: В ДОЛГ

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота