Элина1306
17.01.2023 09:39

Пользователь вводит числа. После каждого числа нужно выводить статистику.
1. Максимальное число из введенных чисел.
2. Минимальное число.
3. Сумму.
4. Разницу

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
tarasIT
04.07.2022 20:35

Хо́стинг (англ. hosting) — услуга по предоставлению ресурсов для размещения информации на сервере, постоянно имеющем доступ к сети (обычно Интернет). Обычно услуга хостинга входит в пакет по обслуживанию сайта и подразумевает как минимум услугу размещения файлов сайта на сервере, на котором запущено ПО, необходимое для обработки запросов к этим файлам (веб-сервер).

Бесплатный хостинг подойдет для начинающих пользователей, которые хотят понять, как разместить свой проект в интернете, публикуют личные страницы или просто экспериментируют.

Особенности платного хостинга – это полные противоположности минусам, которые перечислены выше. Недостаток лишь один – за предоставление таких услуг нужно платить. Но можно ли назвать это недостатком? Например, отправляясь в командировку, мы выбираем себе номер в гостинице по критериям комфорта и уровня обслуживания. То же и с хостингом – за качество нужно платить. И это абсолютно нормально.

0,0(0 оценок)
Ответ:
нурбол5
06.01.2020 09:01
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s1:=SeqRandom(ReadInteger('n1='),-50,50);
  var s2:=SeqRandom(ReadInteger('n2='),-50,50);
  var p:=ReadInteger('0-по неубыванию, иное- по невозрастанию:');
  var q1:=new Queue<integer>;
  foreach var m in s1 do q1.Enqueue(m);
  Write('Очередь 1: ',q1); Writeln;
  var q2:=new Queue<integer>;
  foreach var m in s2 do q2.Enqueue(m);
  Write('Очередь 2: ',q2); Writeln;
  // очереди сформированы
  var q:=new Queue<integer>;
  var a:=(q1.ToArray+q2.ToArray);
  var s:sequence of integer;
  if p=0 then s:=a.OrderBy(i->i)
  else s:=a.OrderByDescending(i->i).ToArray;
  foreach var m in s do q.Enqueue(m);
  Write('Очередь-результат: ',q); Writeln;
end.

Пример
n1= 10
n2= 7
0-по неубыванию, иное- по невозрастанию: 1
Очередь 1: [-26,6,26,-48,-21,-29,27,-39,5,-40]
Очередь 2: [50,36,37,46,18,41,-39]
Очередь-результат: [50,46,41,37,36,27,26,18,6,5,-21,-26,-29,-39,-39,-40,-48]
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота