М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
halker249Neekolay
halker249Neekolay
30.08.2020 09:33 •  Информатика

Используя подпрограмму ранжирования, найти сумму 2-х наименьших и 2-х наибольших по модулю элементов массива: т= (-2,3,-1,4,-5,2,1,0,1,2,1,-3,5)

👇
Ответ:
Nastya32q
Nastya32q
30.08.2020
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

procedure Astento;
begin
  var T:=Arr(-2,3,-1,4,-5,2,1,0,1,2,1,-3,5);
  var s:=T.OrderBy(p->Abs(p)); // последовательность памяти не занимает
  Writeln('Сумма двух наименьших по модулю: ',s.Take(2).Sum);
  Writeln('Сумма двух наибольших по модулю: ',s.TakeLast(2).Sum)
end;  

begin
  Astento
end.

Результат
Сумма двух наименьших по модулю: -1
Сумма двух наибольших по модулю: 0

Замечание: в данном случае "ранжированная" последовательность была такой: 0 -1 1 1 1 -2 2 2 3 -3 4 -5 5
4,6(63 оценок)
Открыть все ответы
Ответ:
Камранбек
Камранбек
30.08.2020

#include <iostream>

void task1()

{

std::cout << "TASK_1\n";

for (int i = 1001; i <= 1025; i += 3)

 std::cout << i << " ";

std::cout << "\n\n";

}

void task2()

{

std::cout << "task_2\n";

unsigned n;

std::cout << "n: ";

std::cin >> n;

for (int i = 0; i < n; ++i)

 std::cout << "Silence is golden\n";

std::cout << "\n";

}

void task3()

{

std::cout << "task_3\n";

int sum = 0;

for (int i = 10; i <= 88; ++i)

 sum += i;

std::cout << sum << "\n\n";

}

void task4()

{

std::cout << "task_4\n";

for (int i = 100; i >= 1; i -= 4)

 std::cout << i << " ";

std::cout << "3 2 1\n\n";

}

int main()

{

task1();

task2();

task3();

task4();

}

4,7(100 оценок)
Ответ:
FanatikOutlast
FanatikOutlast
30.08.2020
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган и с в шалаш

Вариант, если исключить однобуквенные:

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var s:=ReadLnString('Вводите:');
  s.ToWords.Where(x->x=ReverseString(x)).
    Where(x->x.Length>1).PrintLn;
end.

Тестовое решение:
Вводите: дед иван достал наган и пошел с ним в шалаш
дед наган шалаш
4,7(45 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ