arinochkakor1
23.02.2020 01:57

Delphi. Задан набор целых чисел. Напишите программу, которая во всех нечетных элементах заданого набора изменяет порядок цифр на противоположный. В первой строке входных данныхзаписано натуральное число N (1≤ N ≤100) - колличество чисел в наборе. Во второй строке записаны N числа. Все єти числа не превосходят 10∧9 по абсолютной величине.
Выведите состояние набора чисел после проведенной операции.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
staslukutin
14.02.2020 00:02

Задание 1.

Локальная сеть представляет собой объединение компьютеров, расположенных на небольших расстояниях друг от друга.

Задание 2.

Обычно компьютеры ЛС удалены друг от друга на расстояние не более 1 км

Задание 3.

ЛС предоставляют пользователям возможность не только быстрого обмена информацией, но и совместного использования принтеров и других периферийных устройств и даже одновременной работы с документами

Задание 4.

Основой программного обеспечения ЛС является сетевая операционная система. Важнейшая задача сетевой ОС — поддержка такого режима работы ЛС, чтобы работающие в ней пользователи могли использовать общие ресурсы сети и при этом не мешали бы друг другу.

Задание 5.

Одноранговая, децентрализованная, или пиринговая сеть — это оверлейная компьютерная сеть, основанная на равноправии участников.

Задание 6.

Сервер — специализированный компьютер или специализированное оборудование для выполнения на нём сервисного программного обеспечения.

Задание 7.

Рабочая станция — комплекс аппаратных и программных средств, предназначенных для решения определённого круга задач.

0,0(0 оценок)
Ответ:
florzy
30.01.2023 13:32
// 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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота