Процесс выполнения операторов присваивания:
a:=1;h:=133;s:=a∗h
При выполнении оператора a:=1 в ячейку оперативной памяти компьютера с именем a заносится значение ; при выполнении оператора h:=133 в ячейку оперативной памяти компьютера с именем h заносится значение . При выполнении оператора s:=a∗h значения ячеек оперативной памяти с именами a и h переносятся в процессор, где над ними выполняется операция умножения. Полученный результат заносится в ячейку оперативной памяти с именем .
fort.docx; ford.docx; lord.doc; port.doc.
1) *o?*.d?*
2) ?o*?.d*
3) *or*.doc?
4) ?or?.doc?
// Внимание! Если программа не работает, обновите версию!
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.