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

Выполнить сортировку элементов, записанных на нечетных местах.
Нужно написать Программу по паскалю.Задание на сортировку массивов,метод пузырька

👇
Открыть все ответы
Ответ:
nastyabelova01
nastyabelova01
20.07.2021
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var dig:=['0'..'9'];
  var glas:=['a','e','i','o','u','y'];
  var sogl:set of char:=['a'..'z']-glas;
  var alpha:='0123456789';
  var n:=ReadInteger('Количество символов:');
  var a:=SeqRandom(n,1,36).Select(k->alpha[k]).ToArray;
  a.Println;
  a.Where(c->c in glas).Concat(a.Where(c->c in dig)).ToArray.
    Concat(a.Where(c->c in sogl)).Println
end.

Пример
Количество символов: 50
xkdh00nhw8qr32cgcxiwm8ewbnqagmiquew3e6bc7rs2a05ids
ieaiueeai008328367205
4,8(97 оценок)
Ответ:
qooperty
qooperty
20.07.2021
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(10,15,-50,50); a.Println(4);
  var amax:=-100;
  var amin:=100;
  foreach var x in a do
    if x>amax then amax:=x
    else
      if x<amin then amin:=x;
  Writeln('Amax-Amin=',amax-amin)
end.

Пример
 -29  24  36  45 -14  -2  35  36  27   5 -31  26   0 -43 -16
  41  37 -35  -6   0 -27  28  13 -37 -40 -45  -6   7 -38 -26
   6   6   4 -22 -43 -41  27 -50 -31 -50 -37 -10 -38  35 -27
 -14   0 -42  34 -12 -24  40  42  48 -26  -6 -39  23  34 -19
 -46 -23  23   3  49  13 -29 -29 -50 -25 -37  37  47  -7 -13
  33  16  28  40  24   6 -15  24  24  48  16  15   6 -46  14
  48 -46 -34  39  47  36  17  10  37  11 -36 -22 -42   9 -26
 -10  44  -2  10  -9  29 -16  33 -40  26  20   4  49   5 -18
  48  16 -33 -13 -23 -41  21 -43  -3   2 -34 -45  42 -21  10
 -22 -23 -36   0   8  23 -33  46  13  36  14 -28 -44 -38 -24
Amax-Amin=99
4,5(39 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ