Дана последовательность a1 a2 an. образовать новую последовательность, выбросив из исходной, те члены, которые равны min(a1, a2 an как это сделать при функций и процедур?
С процедурами и функциями (высосано из пальца, ибо не нужно) // PascalABC.NET 3.2, сборка 1400 от 13.03.2017 // Внимание! Если программа не работает, обновите версию!
function ArrMin(a:array of integer):=a.Min;
procedure NewSequence(a:array of integer; del:integer; var s:sequence of integer); begin s:=a.Where(x->x<>del) end;
begin var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println; var b:sequence of integer; NewSequence(a,ArrMin(a),b); b.Println end.
Шмидт Ирина
27.03.2022
Вся информация, которую обрабатывает компьютер должна быть представлена двоичным кодом с двух цифр 0 и 1. Эти два символа принято называть двоичными цифрами или битами. С двух цифр 0 и 1 можно закодировать любое сообщение. Это явилось причиной того, что в компьютере обязательно должно быть организованно два важных процесса: кодирование и декодирование.Кодирование – преобразование входной информации в форму, воспринимаемую компьютером, т.е. двоичный код.Декодирование – преобразование данных из двоичного кода в форму, понятную человеку.С точки зрения технической реализации использование двоичной системы счисления для кодирования информации оказалось намного более простым, чем применение других
uisfbu7777733
27.03.2022
Понятие системы счисления Для записи информации о количестве
. Числа записываются с использованием особых знаковых систем, которые называются системами счисления. Алфавит систем счисления состоит из символов, которые называются цифрами. Например, в десятичной системе счисления числа записываются с десяти всем хорошо известных цифр: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. Система счисления — это знаковая система, в которой числа записываются по определенным правилам с символов некоторого алфавита, называемых цифрами.Все системы счисления делятся на две большие группы: позиционные и непозиционные системы счисления. В позиционных системах счисления значение цифры зависит от ее положения в числе, а в непозиционных — не зависит.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дана последовательность a1 a2 an. образовать новую последовательность, выбросив из исходной, те члены, которые равны min(a1, a2 an как это сделать при функций и процедур?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var m:=a.Min;
var b:=a.Where(x->x<>m); b.Println;
end.
Пример
n= 30
-3 6 -2 5 -1 -10 3 9 8 5 2 9 4 -10 8 10 6 9 -8 4 -7 2 10 -7 -7 -5 1 2 0 -3
-3 6 -2 5 -1 3 9 8 5 2 9 4 8 10 6 9 -8 4 -7 2 10 -7 -7 -5 1 2 0 -3
С процедурами и функциями (высосано из пальца, ибо не нужно)
// PascalABC.NET 3.2, сборка 1400 от 13.03.2017
// Внимание! Если программа не работает, обновите версию!
function ArrMin(a:array of integer):=a.Min;
procedure NewSequence(a:array of integer; del:integer; var s:sequence of integer);
begin
s:=a.Where(x->x<>del)
end;
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var b:sequence of integer;
NewSequence(a,ArrMin(a),b);
b.Println
end.