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

Задать массив случайным образом, заменить в нём все отрицательные элементы на элементы с противоположным знаком(например, -5 на 5, -9 на 9), отсортировать массив по неубыванию. вывести элементы исходного и получившегося массива.

👇
Ответ:
pilel
pilel
02.07.2021
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a.Transform(x->-x);
  a:=a.Sorted.ToArray; a.Println
end.

Тестовое решение
n= 15
-6 11 86 67 95 18 -57 8 79 90 45 72 -82 -50 31
-95 -90 -86 -79 -72 -67 -45 -31 -18 -11 -8 6 50 57 82
4,4(33 оценок)
Открыть все ответы
Ответ:
anjela2288
anjela2288
02.07.2021

1)

100101₂ = 37₁₀

56₈ = 46₁₀

A₁₆ = 10₁₀

2)   1E₁₆   56₈   0110111₂

Объяснение:

1)

100101₂ = 1 * 2⁵ + 0 * 2⁴ + 0 * 2³ + 1 * 2² + 0 * 2¹ + 1 * 2⁰ = 1 * 32 + 0 * 16 + 0 * 8 + 1 * 4 + 0 * 2 + 1 * 1 = 32 + 4 + 1 = 37₁₀

56₈ = 5 * 8¹ + 6 * 8⁰ = 5 * 8 + 6 * 1 = 40 + 6 = 46₁₀

A₁₆ = A * 16⁰ = 10 * 1 = 10₁₀

2)

0110111₂ = 110111₂ (отбросили незначащий 0) = 1 * 2⁵ + 1 * 2⁴ + 0 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 1 * 32 + 1 * 16 + 0 * 8 + 1 * 4 + 1 * 2 + 1 * 1 = 32 + 16 + 4 + 2 + 1 = 55₁₀

56₈ = 5 * 8¹ + 6 * 8⁰ = 5 * 8 + 6 * 1 = 40 + 6 = 46₁₀

1E₁₆ = 1 * 16¹ + E * 16⁰ = 1 * 16 + 14 * 1 = 16 + 14 = 30₁₀

30₁₀   46₁₀   55₁₀

1E₁₆   56₈   0110111₂

В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.

A₁₆ = 10₁₀   B₁₆ = 11₁₀   C₁₆ = 12₁₀   D₁₆ = 13₁₀   E₁₆ = 14₁₀   F₁₆ = 15₁₀  

4,8(45 оценок)
Ответ:
zajigalka2001
zajigalka2001
02.07.2021
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

type
  tCar=record
    brand:string;
    cost:real;
  end;
 
begin
  var a:=new tCar[4];
  for var i:=0 to 3 do begin
    var b:=ReadlnString(i+1+') введите марку и стоимость в рублях:').ToWords;
    a[i].brand:=b[0]; a[i].cost:=b[1].ToReal;
    end;
 var m:=a.Select(t->t.cost).Average;
 var p:=a.Select(t->Abs(t.cost-m)).ToArray.IndexMin;
 Writeln('Выбран автомобиль марки ',a[p].brand,' стоимостью ',a[p].cost)
end.

Известны данные о марках автомобилей и их стоимости(лада-400тыс,бмв-700тыс,шеврале-800тыс,нисан-1000
4,4(33 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ