1) подход учитывающий не один, а несколько факторов - например программировать работу светофора так, чтобы были учтены а) "часы-пик" б) погодные условия (туман/дождь/гололед) в) централизованные сигналы (проезд кортежа президента) г) сигналы пешеходов на переходе и т.д.; 2) системный эффект - это возникновение новых свойств, которых ранее не было у элементов по отдельности. Кроме того, это не очевидное (не сразу заметное) влияние различных факторов друг на друга и на конечный результат - например компьютер состоит из ряда простых электронных деталей, которые сами по себе ничего не представляют, но соединённые особым образом (в структуру) позволяют хранить числа и программы, складывать и вычислять и в конечном итоге - моделировать реальность (в играх, например). 3) турникет в автобусе или метро (никто не знает как он работает, но все пользуются)
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var L:=new List<integer>; Writeln('Вводите целые числа, окончание ввода по -777'); var n:integer; repeat n:=ReadInteger; if n<>-777 then L.Add(n); until n=-777; Writeln('Исходный список'); Writeln(L); n:=ReadInteger('Введите искомое число:'); var p:=L.FindIndex(k->k=n); // искомый элемент if p<0 then Writeln('Искомый элемент в списке не найден') else begin Writeln('Элемент ',L.Item[p-2],' удален'); L.RemoveAt(p-2); Writeln(L); // удалили и убедились n:=ReadInteger('Введите число для вставки:'); L.Insert(p-1,n); Writeln(L) end end.
Пример Вводите целые числа, окончание ввода по -777 1 6 12 73 -15 34 18 0 24 -777 Исходный список [1,6,12,73,-15,34,18,0,24] Введите искомое число: 34 Элемент 73 удален [1,6,12,-15,34,18,0,24] Введите число для вставки: 1000 [1,6,12,-15,1000,34,18,0,24]
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,1,12); a.Println;
var b:=ArrRandom(20,1,12); b.Println;
Writeln('Число пар: ',a.Zip(b,(x,y)->x=y).Count(x->x))
end.
Пример
7 8 3 2 4 4 2 6 1 3 5 10 7 10 12 10 3 11 2 1
2 12 4 10 9 8 2 3 12 11 2 1 4 10 8 10 9 9 11 4
Число пар: 3