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

Массив m(25). сортировка "пузырьком". удаление элемента равного c.

👇
Ответ:
femalewolf1309
femalewolf1309
04.06.2023
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := 25;

 var M := ArrRandom(n, -50, 50);

 M.Println; // исходный массив

 // пузырьковая сортировка

 for var i := n - 2 downto 0 do

   for var j := 0 to i do

     if M[j] > M[j + 1] then Swap(M[j], M[j + 1]);

 M.Println; // отсортированный массив

 var C := ReadInteger('Значение удаляемого элемента:');

 var p := M.BinarySearch(C);

 if p >= 0 then

 begin

   M := (M?[:p] + M?[p + 1:]).ToArray;

   M.Println; // результат

 end

 else Println('Элемент не найден')

end.


Массив m(25). сортировка пузырьком. удаление элемента равного c.
4,4(4 оценок)
Открыть все ответы
Ответ:
nadechdavasilev
nadechdavasilev
04.06.2023

Понятие "информация". Слово "информация" происходит от латинского слова informatio, что в переводе означает сведение, разъяснение, ознакомление. Понятие "информация" является базовым в курсе информатики, невозможно дать его определение через другие, более понятия. В геометрии, например, невозможно выразить содержание базовых понятий "точка", "луч", "плоскость" через более понятия. Содержание основных, базовых понятий в любой науке должно быть пояснено на примерах или выявлено путем их сопоставления с содержанием других понятий.

4,8(7 оценок)
Ответ:
almiradkzbd
almiradkzbd
04.06.2023
Решение №1 (без массивов)

var a,n,i,j,s:integer;
begin
  writeln('Введите количество цифр в числе');
  readln(n);
  for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(a);
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
  end;
  writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
9
Введите 2 цифру из 5
2
Введите 3 цифру из 5
7
Введите 4 цифру из 5
3
Введите 5 цифру из 5
1
Натуральное число: 92731

Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)

//PascalABC.NET (версия 3.1, сборка 1198)
var a,n,i,j,s:integer;
mas:array[1..10]of integer;
begin
  writeln('Введите количество цифр в числе');
  readln(n);
  for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(mas[i]);
    a:=mas[i];  
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
  end;
  writeln('Натуральное число: ',s);
end.

Тестовое решение

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