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

Впаскале. отсортировать исходный одномерный массив по возрастанию методом поиска максимума и обмена

👇
Ответ:
Мэрия777
Мэрия777
16.03.2023
Var
  a: array [1..10] of byte;
  i, k, n, t, x, max: byte;
  //процедура вывода массива
procedure WriteA();
var i : byte;
begin  for i := 1 to 10 do begin
    write(a[i], chr(32));
  end;
  writeln();
end;
//основная процедура
begin 
Randomize;
  for i := 1 to 10 do begin
    a[i] := random(100);
  end;
  WriteA();
  writeln('');
  n := 10;
  while n > 1 do begin
    for i := n downto 1 do begin
      if a[i] > max then begin max := a[i]; x := i end;
    end;
    t := a[n];
    a[n] := max;
    a[x] := t;
    dec(n);
    max := 0;
    WriteA();
  end;
  writeln('');
  WriteA();
end.

- Pascal ABC.NET, массив из 10 случайных чисел до 100 типа byte
- Результат работы программы следующий:

43 77 72 39 60 99 44 65 72 58
 
43 77 72 39 60 58 44 65 72 99
43 72 72 39 60 58 44 65 77 99
43 72 65 39 60 58 44 72 77 99
43 44 65 39 60 58 72 72 77 99
43 44 58 39 60 65 72 72 77 99
43 44 58 39 60 65 72 72 77 99
43 44 39 58 60 65 72 72 77 99
43 39 44 58 60 65 72 72 77 99
39 43 44 58 60 65 72 72 77 99
 
39 43 44 58 60 65 72 72 77 99 
4,8(98 оценок)
Открыть все ответы
Ответ:
layonel911
layonel911
16.03.2023

# https://pastebin.com/V2MMpJeN

#

# A.

def function(digit): return str(digit).endswith('0') or str(digit).endswith("1")

print(f"A. function(1230) returns {function(1230)}")

# B.

def function(digit): return digit >= 0 and digit <= 2**8

print(f"B. function(751) returns {function(751)}")

# C.

def function(digit):

if digit < 2: return False

if digit == 2: return True

i=2

lim=int(digit**(1/2))

for n in range(i, lim + 1):

if digit % n == 0: return False

# конец двойной табуляции

return True

# конец табуляции

print(f"C. function(17) returns {function(17)}")

n=int(input("<-- enter digit: "))

print(f"C. function({n}) returns {function(n)}")

print("Число", n, "простое" if function(n) else "составное")

4,6(21 оценок)
Ответ:
elena090107
elena090107
16.03.2023

Program CountA;

Uses Crt;

var a,n,x,i:integer;

begin

clrscr;  // очищаем экран

write('Введите число n:');

readln(n); // ввод данных

write('Введите цифру а: ');

readln(a);  // ввод данных

x:=1; i:=0;  i-счётчик цифр а  

while (n<>0) do // Пока n не стало равным нулю

begin

    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  

   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 

   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)

 end;

writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');

readkey; // Пауза до нажатия на любую клавишу

end.

Не знаю, правильно или нет‍♀️

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