Остап Бендер начал вырабатывать условия.

– В случае реализации клада я, как непосредственный участник концессии и технический руководитель дела, получаю шестьдесят процентов, а соцстрах можете за меня не платить.

Ипполит Матвеевич посерел.

– Это грабеж среди бела дня.

– А сколько же вы думали мне предложить?

– Н-н-ну, пять процентов, ну, десять, наконец. Вы поймите, ведь это же 15 000 рублей!

Они, конечно, договорились. А мы напишем программу, которая определит подходящие условия, то есть из списка чисел выберет те, что отличаются от среднего арифметического не более, чем на число, введённое первым.

Формат ввода
Вводится строка целых чисел, записанных через пробел.

Формат вывода
Вывести числа, которые отличаются от среднего арифметического не больше, чем на число, введённое первым, без повторений, порядок вывода не важен.

Пример 1
Ввод Вывод
2 3 4 5 6
2 3 4 5 6
Пример 2
Ввод Вывод
17 42 34 17 51 2
17 42 34

ответ в виде кода в программе phython

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

viktoria383

27.09.2021 03:16

1. Информационное сообщение объёмом 3,5 килобайта содержит 7168 символа. Сколько символов содержит алфавит, при которого было записано это сообщение? 2. Информационное сообщение объёмом...

122599baikal

24.03.2020 22:54

Запиши развёрнутую запись числа 0,664 для дробной части числа....

Асентай

24.03.2020 22:54

Сумма и произведение цифр случайного трехзначного числа число вводится с клавиатуры в паскале сделайте...

ПоляКрасавица1

17.02.2021 08:21

Выразите в мегабайтах объем текстовой информации в современном словаре из 740 страниц если на одной странице размещается в среднем 60 строк по 80 символов включая пробелы считайе...

veranika25

16.04.2020 17:51

(последняя буква согласная) или не ((первая буква согласная) и (вторая буква гласная))? 1)тигр 2)выдра 3)енот 4)краб...

nazarko200

24.04.2021 11:03

Решить на программирование в abc pascal. дано n чисел. найти сумму отрицательных чисел кратных 4. (x от -30000 до +30000)...

пельменьярости

29.07.2021 00:16

Что будет выведено на экран в результате выполнения фрагмента программы: s: =0; for k: =0 to 10 do begin x: =-10+3*k; if x 0 then s: =s+1; write(x: 4); end; writeln(s); нужно подробное...

kanony

31.05.2023 02:29

Дайте короткий ответ: - таблица, сформированная на основе одной или нескольких таблиц базы данных, которая содержит информацию, что удовлетворяет некий критерий....

506010

30.05.2022 01:39

Как записать решение к ? найти площадь прямоугольника, если его периметр равен 62 см, а его длина 19 см....

BlackCat169958

30.05.2022 01:39

Напишите 4 предложения.. по одному о каждом времени года чтоб были приставки и предлоги...

Ответ:

Roost11

22.12.2022 19:39

На C++ #include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;int main()
{
   srand(time(0));
   int counter = 0;
   int growth;   for(int i = 0; i < 50; i++)
   {
      if((growth = rand() % 151 + 150) >= 170)
      {
         counter++;
      }
      cout << growth << ' ';
   }
   cout << endl << endl;   cout << counter << " pupil";
   cout << (counter != 1 ? "s" : "") << endl; // Если будет только 1 ученик,
                                             //то больше ничего не печатать
                                             //иначе - допечатать букву "s"   cin.get();
   return 0;

0,0(0 оценок)

Ответ:

cfr1

22.12.2022 19:39

Var
X: array [1..5, 1..5] of real;
Y: array [1..4, 1..4] of real;
i, j: byte;
SumX, SumY: real;
begin
SumX := 0; SumY := 0;
writeln('Массив X':28);
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
    X[i, j] := random*40-20;
    if X[i, j] < 0 then SumX := SumX + X[i, j];
    write(X[i, j]:9:4);
end;
writeln;
end;
writeln;
writeln('Массив Y':28);
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
    Y[i, j] := random*40-20;
    if Y[i, j] < 0 then SumY := SumY + Y[i, j];
    write(Y[i, j]:9:4);
end;
writeln;
end;
writeln;
writeln('Сумма отрицательных массива X = ', SumX:9:4);
writeln('Сумма отрицательных массива Y = ', SumY:9:4);
if SumX > SumY then writeln('Сумма отрицательных X - больше.')
else if SumX < SumY then writeln('Сумма отрицательных Y - больше.')
else writeln('Сумма отрицательных X и Y равны.')
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку